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ERRORS 



PAGE 1 



0050 



9100 



0080 



0001 
0002 
0004 
0008 
0010 



0020 
0040 

0080 



0001 
0002 
0004 



;sy 
;** 
; v 
* 

;** 
VER 



1 „ F I L E 
1011-25/10/77 - 09Q5 
******************* 

ERSION LEVEL CODE * 



HOURS 

SY1011 MAIN COD 
VERSIONZ 21MX 




******************* 

SN EQU 120ft ;P => VERSION 0' 



COMMON EQUATES - CM34 - 6/10/76 -1315 HRS. 

TRAM EQU 110400ft ; FAST RAM LOWER LIMIT 
*************************************** 
KBDCSW - KEYBOARD DATA COMM SWITCHES * 
********** ***************************** 
LDUP EftU 200ft ;HALF/FULL DUPLEX 

************************************** 

KBJMPR - KEYBOARD INTERFACE JUMPERS * 

************************************* * 



; JUMPERS SENSED AS 0* WHEN INSERTED 
; ALL JUMPERS ARE NORMALLY INSERTED 
CNDIS E8U O01Q ^CONTROL CODE DISABLE 
SLDIS EftU 002Q 

r 

LNWRP EQU 0G4Q 



;CONTROL CODE 
(0=D1SA8LED 

;SPOW LATCH D 
(0=DISA8LED 

; COLUMN 80 AU 
fn-FNARI Fft) 



ISABLE 
) 

TO CR,LF 



P6STR EftU 01 Oft 

LFPOS EftU 20ft 

* 

r 
I 



FTSND EftU 40ft 
HDSHK Ed\Ji 100ft 

D2SND EftU 200Q 

r 
t 
r 
r 
i 



;PAGE MODE ST 

(0=LINE-FIE 

;LINE FEED PO 

(0 = POSITI 

AT STAR 

READ 

1 = PUT LI 

OF RE CO 

;9600 BAUD DA 

(0=9600 BAU 

;8L0CK TRANSF 

(0 = FOLLOW 

1 = SEND D 



RAP 

LD MODE) 

SITION 

ON LINE FEED 

T OF NEXT I/O 

NE FEED AT END 

RD) 

TACOM SHIFT 

D FOR ESC^E) 

ER HANDSHAKE 

DC2SND SETTING 
C 2 BEFORE DATA) 



(0 = SEND DC2 ON ENTER 

AND FUNCTION KEY IN 
BLOCK MODE 
1 = INHIBIT ALL DC2 
HANDSHAKE) 



; ****************************************** 

; K8JMP2 - SECOND SET OF KEYBOARD JUMPERS * 

;*************#**************************** 

;AUTO TERMINATE ON "ENTER" 
;CLEAR TERMINATOR ON TRANSMI 
; INHIBIT TERMINAL SELF-TEST 



ATTRM 


EQU 


1Q 


CRTRM 


EftU 


2ft 


NTEST 


EQU 


4Q 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
FILE 
FILE 
FILE 
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FILE 
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£WP C /t^n e{U~ ^ 



^ 
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0008 
0010 
0080 



0001 
0002 
0004 
0008 
0010 

0020 

0040 

0080 



0001 
0002 
0004 
0008 
0010 
0020 



0001 
0002 
0004 



0003 



0000 

0001 
0002 
0010 
0020 
0040 

008Q 



0001 
0002 
0004 
Q008 
0010 
0020 
0040 



DJMP1 


EQU 


16 


DJMP2 


EQU 


2Q 


DJMP3 


EQU 


4Q 


DJMP4 


EQU 


10Q 


NDCST 


EQU 


20Q 


SETCH 


EQU 


40Q 


CEKCC 


EQU 


100Q 


FCPTY 


EQU 


2006 



ETWRP EQU 10Q ; INVERT SENSE OF EDIT WRAP 
PNTAL EQU 206 ;SEND ALL CODES TO PRINTER 
DJRPO EQU 200Q ;DATA COWM JUMPER 

; ***************************************** 

; KBJMP3 - THIRD SET OF KEYBOARD JUMPERS * 

; ***************************************** 

;DATA COMM JUMPERS 



; INHIBIT DATA COMM SELF-TEST 

(0 = DISABLED) 
;TURN ON "€H" CONTROL LINE 

CO = OFF, 1 = ON) 
;MONITOR CC CONTROL LINE 

(1 = ENABLED) 
; FORCE PARITY ON/NO IN CHECK 
; C1 = ENABLED) 

;************************ 

; CMFLGS - COMMON FLAGS * 

;************************ 

;BLOCK TRANSFER TRIGGER 

; INSERT WITH WRAP AROUND 

;FORCE FULL TERMINAL RESET 

;DEFINE SOFT KEY MODE ENABLE 

;REMOTE MODE ENABLED 

; TERMINAL IN RECEIVE MODE 

;*********************** 

; ERRFLG - ERROR FLAGS * 

; *********************** 

DMERR EQU 1© ;DATACOM (1 = ERROR) 

TSTOK EQU 26 ;SELF-TEST (0 = ERROR) 

LRCHK EQU 46 ;LOADER CHECKSUM (C = ERROR) 

;************************** 

; INTFLG - INTERRUPT FLAG * 

; ************************** 

TRINT EQU 3 ;TIMER INTERRUPT 

r 

• ************* ********************** 

; PRCCTL - PROCESSOR CONTROL FLAGS * 
;*********************************** 



BKTRG 


EQU 


16 


1SWRP 


EQU 


2Q 


FCRST 


EQU 


4Q 


DFSKY 


EQU 


10Q 


RMSET 


EQU 


20Q 


RVMDE 


EQU 


406 



TIACK EQU 06 



TMRON 


EQU 


16 


TMIEN 


EQU 


26 


DIOFF 


EQU 


206 


TIOFF 


EQU 


40Q 


POLL 


EQU 


100Q 


; V*V*V*V* 


SET TO 


STROM 


EQU 


200Q 



ACKNOWLEDGE TIMER INTERRUPT 

(BIT 1 OFF) 
;SET TIMER ON 

;RE-ENABLE TIMER INTERRUPT 
;DISABLE DATA COMM INTERRUPT 
;DISABLE TIMER INTERRUPTS 
;POLL CTU INTERRUPTS 
ZERO FOR ROM VERSION *V*V*V*V* 
;DISABLE (D/ENABLE <0) ROM 



: ********************************* 
: MDFLG1 - TERMINAL MODE FLAGS 1 * 

; ********************************* 



DPFNC 


EQU 


1Q 


ISCHR 


EQU 


26 


MMLOK 


EQU 


4Q 


FRMAT 


EQU 


106 


EDIT 


EQU 


20Q 


SLECT 


EQU 


406 


RCORD 


EQU 


100Q 



;DISPLAY FUNCTIONS ENABLED 
;INSERT CHARACTER ENABLED 
;MEMORY LOCK ENABLED 
; FORMAT MODE ENABLED 
;EDIT MODE ENABLED 
; SELECT MODE ENABLED 
.-RECORD MODE ENABLED 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


2G 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


2v 


FILE 


20 


FILE 


20 


FILE 


2.0 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


2U 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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20 
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20 
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20 
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20 
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20 


FILE 


20 


FILE 


20 


FILE 


20 
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0080 



0001 
0002 
0004 
0008 
0020 



OOOA 
0008 



9165 
9168 

FFFF 
OOFF 
FFOO 

FFFE 
FFFD 
FFFC 
FFFB 
FFFA 
FFF9 
FFF8 
FFF7 
F F F6 
FFF5 
FFF4 
FFF3 
FFF1 
FFEF 
FFED 
FFEB 
FFE9 
FFE7 
FFE5 
FFE3 
FFE1 
FFEO 
FFDE 
FFDO 
FFDC 
FFDB 
FFDA 
FFD9 
FFD8 
FFD7 
FFD5 
FF04 
FFD2 
FFD1 



CPSLK 


EQU 


1® 


BKMDE 


EQU 


2Q 


ATOLF 


EQU 


46 


RMOTE 


EQU 


108 


UBSR 


EQU 


406 



FGR6N EQU 2006 i FOREIGN MODE ENABLED 
• ********************************* 

; MDFL62 - TERMINAL MODE FLAGS 2 * 
» ********************************* 

;CAPS LOCK ENABLES 
;BLOCK MODE ENABLED 
;AUTO LF ENABLED 
;REHGTE ENABLED 
;WRIT£«BACKSPACE-READ MODE 
- ********************************************** 

'; RADIX - BASE OF INPUT PARAMETER FOR ESC SEQ * 
j *********************************** *********** 

DCRDX EQU 10 ;DECIHAL NUMBERS 
OTRDX EQU 8 ;OCTAL NUMBERS 



- ******************* 

; COMMON VARIABLES * 
f ******************* 

ITVEC EQU FTRAM+145Q 
SNVEC EQU ITVEC+3 



/CENTRAL INTERRUPT VECTOR 
; FOREIGN TERMINAL DISPLY SCA 



CMMON 
CBASE 
CSTOR 

OSPST 
TMTYP 
KDCSW 
KJMPR 
KJMP2 
KJMP3 
CFL6S 
ERFLG 
ITFLG 
PCCTL 
MFLG1 
MFLG2 
KGPT1 
MGPT2 
M6PT3 
HGPT4 
M6PT5 
MGPT6 
MGPT7 
M6PT8 
CIV EC 
CUKP 
IDATA 
ICSGN 
IPSGN 
PARM1 
PARM2 
PARM3 
PARM4 

PARM5 
PARM6 
RADIX 
RNGTA 
ECFLG 



EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



177777Q ;UPPER LIMIT OF COMMON AREA 

CMRON/256 ;MSB OF COMMON ADDRESSES 
CBASE*256 ;MSB ADJUSTMENT FACTOR 



CMMON-1 
DSPST-1 
TMTYP-1 
KDCSW-1 
KJMPR-1 
KJWP2-1 
KJMP3-1 
CFL6S-1 
ERFLG-1 
ITFL6-1 
PCCTL-1 
MFL61-1 
MFLG2-2 
M6PT1-2 
MGPT2-2 
MGPT3-2 
MGPT4-2 
MGPT5-2 
MGPT6-2 
M6PT7-2 
MGPT8-2 
CIVEC-1 
CIJMP-2 
IDATA-1 
ICSGN-1 
IPSGN-1 
PARM1-1 
PARM2-1 
PARM3-1 
FARM 4-1 
PARK5-2 
PARM6-1 
RADIX-2 
RNGTA -1 



; DISPLAY REFRESH START PTR 
/TERMINAL TYPE NUMBER 
;KEYBOARD DATACOM SWITCHES 
;KEYBOARD STRAPS 

;SET 2 

;SET 3 
; COMMON FLAGS 
;ERROR FLAGS 
; INTERRUPT FLAG 
;PROCESSOR CONTROL FLA6S 
/TERMINAL MODE FLAGS 1 

;AND 2 
;MESSAGE POINTERS 

r 
i 
t 



;CTU INTERRUPT VECTOR 
;JUMP CODE FOR VECTOR 
;ESQ SEQ PARM ACCUMULATOR 
;SI6N FOR PARAMETER 
;PARAMETER SIGN 
;ESCAPE SEQUENCE PARAMETERS 

i • 
t • 
r * 
/ • 

/RADIX OF PARAMETERS 
;CHAR FUNCTION TABLE ADDRESS 
;ESCAPE SEQUENCE FLAG 
= 0, NOT IN ESCAPE SEQ 
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FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 

FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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20 

20 

20 

20 

20 

20 

20 

20 
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20 

20 

20 
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20 
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20 

20 

20 
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FF&O 



7000 



7002 
7005 
7008 
700B 
700E 
70t1 
7014 
7017 
701A 
701 D 
7020 
7023 
7026 



7029 
702A 



0001 
0002 
0003 
0004 
OQOS 
0006 
0007 
0008 
0009 
OOOA 
OOOB 
OOOC 
0000 
00 OE 
OOOF 



FF2Q 
FF12 
FF12 
0001 
0008 
0010 
0004 
0002 



; #0, ESC SEQ IN PROGRESS 

RTTMR EQU ECFLG-1 ;SOFT RESET TlKER 

; ****** ****************** 

; END OF COMPIQN EQUATES * 

*********************** 



; * 



;****** ********************** *+■/,** 

; KEYBOARD ENTRY VECTOR POINTERS * 
; ********************************* 

ZBBAS EQU 70000Q /KEYBOARD START ADDRESS 
; 28 K 



ZNIKB 
ZETKY 
ZBCTL 
ZBMON 
ZTMD1 
ZLMD1 
Z8ELL 
ZTXMT 
ZLXMT 
ZTJPR 
ZTLKY 
ZLPCK 
ZUMCK 



EQU 
EQU 
EQU 
EQU 
B&U 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



ZBBAS+2 
ZNIKB+3 
ZETKY +3 
ZBCTL +3 
ZBMON+3 
ZTMD1+3 
ZLMD1+3 
ZBELL+3 
ZTXMT+3 
ZLXMT +3 
ZTJPR+3 
ZTLKY+3 
ZLPCK+3 



INITIALIZE KEYBOARD 

GET KEYBOARD KEY 

PERFORM KEYBOARD CONTROL 

MONITOR KEYBOARD 

SET MODE 1 FLAGS 

CLEAR HODE 1 FLAGS 

SOUND THE BELL 

TURN ON TRANSMIT LED 

TURN OFF TRANSMIT LED 

SET JUMPERS ESC SEQ ROUTINE 

SET LATCHING KEYS ROUTINE 

ALPHA KEY ENTRY CHECK 

NUMERIC KEY ENTRY CHECK 



KEYBOARD CONSTANTS 



FSALT 
ATOUT 



EQU 
EQU 



ZUMCK+3 
FSALT+1 



/INITIAL ALTERNATE 
/INITIAL ALTERNATE 



CHAR SET 
CHAR OUT 



KEYBOARD CONTROL CALLS 



LCKKB 
ULKKB 
RTKEY 
SBLMD 
SRTST 
EDTST 
RET KB 
C IOK Y 
SPRPT 
CBRKY 
SCHAR 
STFRN 
SCHST 
FNMD1 
FNMD2 



r 

KSRAM 

KBUF2 

KCTSH 

LFFKY 

LHFKY 

RHFKTf 

LF1KY 

LF2KY 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



;LOCK KEYBOARD 

;UNLOCK KEYBOARD 

;REPEAT LAST KEY HIT 

;SET PERMANENT BLOCK MODE 

;START SELF-TEST 

;END SELF -TEST 

; RESET KEYBOARD 

; CHECK FOR I/O CONTROL KEY 

;STOP KEY REPEAT 

; CHECK FOR BREAK KEY DOWN 

;SWITCH CHARACTER SET 

/UPDATE FOREIGN MODE 

;SET FOREIGN OUTPUT MODE 

;SET FOREIGN MODE 1 

;SET FOREIGN RODE 2 



KEYBOARD SLOW RAM EQUATES 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



177440Q 

KSRAM-14 

KBUF2 

1Q 

10Q 

20Q 

4Q 

2Q 



/UPPER LIMIT OF 
/AKT.KEYS STATE 
;SHIFT KEYS 
/FIX SHIFT LEFT 
;LEFT SHIFT 
;RI6HT SHIFT 
/LEFT SHIFT 1 
;LEFT SHIFT 2 



SLOW RAM 
TABLE 



FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

F I L E 

FILE 

FILE 

FILE 
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20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 
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7800 



7802 
7803 
7804 
7805 
7806 



7808 
780B 
780E 
7811 
7814 
7817 
781A 
781D 
7820 
7823 
7826 



0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
OOOA 
0008 
OOOC 
OOOD 



0000 
OOOA 
OOOC 
OOOD 
OOOE 
OOOF 



************************************************* 

DATACOM CONSTANTS 
************************************************* 



2CBAS EQU 74 000Q 



TIG6R 
RCSEP 
BKTRM 
OJMSK 
DJMS2 



EQU 
EQU 
EQU 
EQU 
EQU 



ZCBAS+2 
TI66R + 1 
RCSEP+1 
BKTRM+1 
DJMSK+1 



;DATACOM START ADDRESS 

30 K 

;BLOCK TRANSFER TRIGGER 
;RECORD SEPARATOR CHARACTER 
;6L0CK TERMINATOR CHARACTER 
;DATA COMM JUMPER MASK 
;DATA COnn JUMPER MASK #2 



; ****************************** 


ZNIDC 


EQU 


ZCBAS+10Q 


; IN IT I 


2N2DC 


EQU 


ZNIDC+3 


;INITIALI 


ZCMON 


EQU 


ZN2DC+3 


;MONITORI 


ZCCTL 


EQU 


ZCMON+3 


;MISC CON 


ZCTST 


EQU 


ZCCTL+3 


;SELF-TES 


ZETDC 


EQU 


ZCTST+3 


;GET DC C 


ZUTDC 


EQU 


ZETDC+3 


;PUT DC C 


ZGBIN 


EQU 


ZUTDC+3 


;GET BINA 


ZTBIN 


EQU 


Z6BIN+3 


;START BI 


ZDBIN 


EQU 


ZTBIN+3 


;END BINA 


ZCINT 


EQU 


ZDBIN+3 


; DATACOM 


- ****************************** 



; ************************************************* 

DATACOM ENTRY VECTOR POINTERS 



****************** * 

ALIZE DATACOM 

ZATION CONTINUATOR 

N6 ROUTINE 

TROL FUNCTIONS 

T 

HARACTER 

HARACTER 

RY DC CHARACTER 

NARY OUTPUT 

RY OUTPUT 

INTERRUPTS 

******************* 



DATACOM CONTROL CALL CODES 

*************************************** 
;CLEAR BLOCK TRANSFER TRIGGE 
;SET BLOCK TRANSFER TRIGGER 
;RESET DATACOM 
;SET REMOTE MODE 
;SET LOCAL MODE 
;OUTPUT BREAK SIGNAL 
;MODEM DISCONNECT 
^TERMINATE OUTPUT MESSAGE 
;ENTER MONITOR MODE 
;ENTER NORMAL MODE 
; ENTER FAST BINARY OUT MODE 
;SENB ATTENTION CODE 
;SEND FUNCTION DATA 
;SENt* PROMPT CODE 

************************** 

ASCII CHARACTER EQUATES * 
************************** 



;********** 


*** 


CRTRG 


EQU 





STTRG 


EQU 


1 


RETDC 


EQU 


2 


STREM 


EQU 


3 


STLCL 


EQU 


4 


PTBRK 


EQU 


5 


DSCNT 


EQU 


6 


EDBLK 


EQU 


7 


STMON 


EQU 


8 


STNRW 


EQU 


9 


FTBIN 


EQU 


10 


SDATN 


EQU 


11 


SDFCT 


EQU 


12 


POMPT 


EQU 


13 



NULL 


EQU 


QQ 


;NULL 


LF 


EQU 


12Q 


;LINE FEED 


FF 


EQU 


14Q 


;FORM FEED 


CR 


EQU 


15Q 


;RETURN 


SO 


EQU 


016Q 




SI 


EQU 


017Q 





FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
2U 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2b 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2C 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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0012 
0013 
001 B 
0020 
0020 
0026 
0027 
0029 
002B 
002 C 
002D 
002 E 
002F 
0030 
0032 
0033 
0034 
0035 
0036 
0037 

0040 
0041 
0043 
0044 
0046 
0048 
004 C 
004E 
0050 
0052 
0053 
0054 
0055 
0059 
005A 
005B 
005C 



0061 
0063 
0064 
0066 
0069 
006B 
0070 
0078 
007B 
007C 
007F 



OOFO 
OOOF 
OOAO 
0080 



DC2 
DC3 
ESC 
CLLIM 

ABLNK 

APSND 

QUOTE 

APARN 

PLUS 

COMMA 

MINUS 

PRIGD 

SLANT 

ZERO 

TWO 

THREE 

FOUR 

FIVE 

SIX 

SEVEN 

ASIGN 

AX 

CX 

E>X 

FX 

HX 

LX 

NX 

PX 

RX 

SX 

TX 

UX 

YX 

ZX 

LTBKT 

ACKSL 

i 

; **** 

; LOW 

; **** 

SALLA 

ALCC 

SALLO 

SALLF 

SALLI 

SALLK 

SALLP 

SALLX 

LTBRC 

VTBAR 

ADEL 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

****** 

ER CAS 
****** 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



22Q 
23Q 
33Q 
40Q 
040Q 
46Q 
47Q 
51Q 
53Q 
54 Q 
55Q 
56G 
57Q 
60Q 
62 Q 
63Q 
64 S 
65Q 
666 
67Q 

100Q 
1G1G 
103Q 
104Q 
106Q 
110Q 
114Q 
116Q 
12QQ 
12 2Q 

12 30 
124Q 
125Q 
131G 

13 2Q 
133Q 
134Q 

********* 

E EQUATES 
********* 

141Q 
143Q 
144Q 
146Q 
151Q 
153Q 
16 0Q 
170Q 
173Q 
174Q 
177Q 



;AS 
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DEVICE CONTROL 2 

DEVICE CONTROL 3 

ESCAPE 

CONTROL CODE UPPER LIMIT 

CII BLANK 

CS) - AMPERSAND 

(*> - SINGLE QUOTE 

) - RIGHT PARENTHESIS 
PLUS SIGN 
COMMA 

MINUS SIGN 
(.) - PERIOD 
(/) - SLANT 
ASCII ZERO 
ASCII TWO 
ASCII THREE 
ASCII FOUR 
ASCII FIVE 
ASCII SIX 
ASCII SEVEN 



"AT" S 

UPPER 

UPPER 

UPPER 

UPPER 

UPPER 

UPPER 

UPPER 

UPPER 

UPPER 

UPPER 

UPPER 

UPPER 

UPPER 

UPPER 

LEFT B 

C*> - 



IGN (3) 

CASE A 

CASE 

CASE 

CASE 

CASE 

CASE 

CASE 

CASE 

CASE 

CASE 

CASE 

CASE 

CASE 

CASE 



C 

D 
F 
H 
L 
N 
P 
R 
S 
T 
U 
Y 
Z 



RACKET 
BACK SLANT 



** 
* 

** 

;AS 

# 

t 

i 

i 

* 



LOWER CASE A 
CII LOWER CASE 
LOWER CASE D 
LOWER CASE F 
LOWER CASE I 
LOWER CASE K 
LOWER CASE P 
LOWER CASE X 
LEFT BRACE 
VERTICAL BAR 
DELETE (RUBOUT) 



; ************* **************************** 

YOFO EQU 36 OQ 

YOOF EQU 17Q 

YOAO EQU 24 0Q 

YO80 EQU 200G 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 

20 
20 
20 
20 

20 
20 

20 
20 

20 
20 
20 
20 
20 
20 
20 
20 
2U 
20 
2v 
20 
20 
20 
20 
20 

20 
20 
20 

2C 

20 
20 
20 
2P 
2U 
20 
20 
20 
20 
20 
20 
20 
2D 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2u 
20 
2C 
20 
20 
20 
20 
20 
20 
20 
20 
20 



8080 HACRO ASSEMBLER, VER 2.4 



QOBF 
OOCO 
00C1 
00C2 
00C3 
0QC4 
00C5 
00C6 
00C7 
00C8 

GQC4 
OOCC 
OOCE 
OODO 
0800 
80Q0 
0QC3 
0OC9 



0017 
G04F 
0010 
0051 
OOOF 
0010 
0020 
0001 
0002 
0032 
0080 



*»' 



0000 
0001 
0070 
0080 



8 003 
8083 
0002 
0004 
00Q8 



8007 
8007 
8027 
0020 
0040 



/ **** 
; DIS 

/**** 

EHLIM 

STPR 

ENDPR 

XQNLY 

FILL 

SPFLG 

ALPHA 

NMBER 

APHNM 

SKYAT 

FDSEP 

EOL 

EOP 

LKLlM 

NUM2K 

B15 

IJMP 

IRET 

;**** 

; MIS 

; **** 

MX ROW 
MXCOL 
STEND 
BLLIM 
BLKSK 
BLKSZ 
IERRB 
RXMIT 
BNXMT 
STDLY 
NSI6N 



**************** 

PLAY FLAGS EQUAT 
**************** 

EQU 2776 

EQU 3006 

EQU 301Q 

EQU 3026 

EQU 303Q 

EQU 304Q 

EQU 305Q 

EQU 3066 

EQU 307Q 

EQU 31 0© 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
****** 

CELLAN 
****** 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



304Q 
314G 
316Q 
320Q 

40006 

100000Q 

303Q 

3116 
******** 

EOUS EQU 
******** 

23 
79 

16 

81 

17G 

16 

40Q 

16 

2 

50 

200Q 
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**** 
ES * 
**** 

/MAXIMUM ENHANCEMENT CODE 
/START PROTECTED FIELD 
/END PROTECTED FIELD 
;START TRANSMIT-ONLY FIELD 
/EOL FILL CHARACTER 
/NON-DISPLAYING TERMINATOR 
;ALPHABETIC ONLY 
/NUMERIC ONLY 
ALPHANUMERIC FIELD 
;SOFT KEY ATTRIBUTE FIELD 

/FIELD SEPARATOR FOR I/O BUF 



,-LOWEST VALUE FOR A LINK 
/NUMBER 2048 (2K> 
/BIT 15 

/JUMP INSTRUCTION CODE 
/RETURN INSTRUCTION CODE 
****** 

ATES * 

****** 

/MAXIMUM ROW NUMBER 

/MAXIMUM COLUMN NUMBER 

/LAST SOFT KEY DEFINITION RO 

/SPACE FROM RHTMGN FOR BELL 

/BLOCK SIZE MASK 

/BLOCK SIZE 

/I/O ERROR STATUS BIT 

/RE-TRANSMIT I/O FLAG 

/SEND BINARY DATA 

/SOFT RESET PERIOD - .50 SEC 

/NO SIGN FLAG FOR INPUT DATA 



/********************* 
/ I/O MODULE EQUATES * 

; ********************* 



/RESET TERMINAL VECTOR 
/VECTOR FOR RESTART "PCHL" 
/PROCESSOR "OUT" PORT 
/I/O ADDRESS MSB'S 



56 /MODULE 11 BASE ADDRESS 

/RESET KEY CONTROL 

/RESET ON 

/RESET OFF 
/NUMBER OF FUNCTION KEYS 



/ CURSOR CONTROL 

f 

IDISP EQU 7Q+IBASE*256 /MODULE 13 BASE ADDRESS 

ICRCL EQU IDISP+O /CURSOR COLUMN ADDRESS 

ICRRW EQU IDISP+40Q /CURSOR ROW ADDRESS 

MYEOP EQU 40Q /DMA ON, EOP IF DMA ROW = RO 

MYEOL EQU 100Q /DMA OFF, SKIP EOP IF ROWS = 



RESET 


EQU 


OQ 


RTJMP 


EQU 


1Q 


POCSR 


EQU 


160Q 


IBASE 


EQU 


200Q 


/ KEYBOARD 




f 
IOKB 


EQU 


3Q + 1 


1KB CO 


EQU 


IOKB 


RSTON 


EQU 


26 


RTOFF 


EQU 


4Q 


NFCTK 


EQU 


8 



FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2U 
20 
2H 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2C 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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0060 
0080 
0082 
0080 



8 00B 
800B 
800B 
802B 
802B 



ERRORS 
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800D 
802D 
8Q0D 
800F 



8005 
8045 
8025 
8065 
8045 



DAOFF 


EQU 


14 0Q 


/DMA OFF 


CTOFF 


EQU 


200Q 


/DISPLAY OFF 


INVRS 


EQU 


20 2Q 


/INVERSE VIDEO ON 


NRMAL 


EQU 


200Q 


/NORMAL VIDEO ON 



CARTRIDGE TAPE 



IOCTU 
ICTCO 
ICTSI 
ICTDO 



EQU 13Q+1BASE*256 /MODULE 15 BASE ADDRES 

EQU IOCTU+OQ /COMMAND TO CTU 

EQU IOCTU+OQ ; STATUS FROM CTU 

EQU IOCTU+40Q ;DATA TO CTU 



ICTDI EQU I0CTU+40Q /DATA FROM CTU 



9866 PRINTER 



IPTR1 
PT0T1 
PRST1 
PRCL1 



EQU 15Q+IBASE*256 ;MODULE 16 BASE ADDRES 

EQU IPTR1+40Q ;PRINTER DATA OUT 

EQU IPTR1+0Q /PRINTER STATUS IN 

EQU IPTR1+2Q /PRINTER CLEAR 



; RS-232 PRINTER 

IPTR2 EQU 5Q+IBASE*256 /MODULE 12 BASE ADDRESS 

PT0T2 EQU IPTR2+100Q /INTERFACE CONTROL OUT 

PRST2 EQU IPTR2+40Q /PRINTER STATUS IN 

PRDA2 EQU IPTR2+140Q /PRINTER DATA OUT 

PRCF2 EQU IPTR2+1006 /OPTION JUMPERS IN 



/** 

; p 
z ** 



**************** 

RINTER EQUATES * 
**************** 

RS-232 OPTION STRAPS 



» 


r 
r 
i 

r 
f 
t 
r 
* 
r 



BITS 

000 

001 

010 

011 

100 

101 

110 

111 

bit : 
1 


BIT t 

1 


BITS 
000 
001 
010 
011 
100 
101 
110 



2-0 



MEANING IF SET 
EXT BAUD RATE 

110 " 

150 " 

300 " 
1200 " 
2400 ** 
4800 " 
9600 " 



PARITY 

EVEN 

ODD 



SELECT 



7-5 



PARITY INHIBIT 

NO PARITY 

PARITY 

# OF FILLS 

HANDSHAKE DEVICE 

8 

16 

24 

32 

40 

48 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2C 
20 
20 
20 
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05 DC 



0001 
0080 



0002 
0040 
0020 
OOEO 
001 F 



FAFF 
OODO 
FBOO 
FCOO 
OOFC 
0000 
FCOO 
FDOO 
FE4F 
0100 



9160 
FFDO 
OOFF 
FFOO 
OOFE 
FEOO 



FFCD 
FFCE 



FFCB 



FFC9 



FFC8 
FFC7 



;***** 

; DRIV 
****** 
PTDLY 

;***** 

; 9866 

;***** 

PRDY1 

PRP01 

;***** 

; RS-2 

• ***** 

PRDY2 
PRSB2 
PR0L2 
PRHD2 
PRBD2 



;15 SECOND PRINTER TIKE OUT 



111 56 

************ 

ER EQUATES * 

************ 

EQU 1500 
****************** 

PRINTER EQUATES * 
****************** 

EQU 1 ;PRINTER 
EQU 200G ;PRINTER 
******** ************ 

32 PRINTER EQUATES * 

******************** 

EQU 2 ;PRINTER READY MASK 

EQU 1000 ;RS-232 SB LINE STROBE 

EQU 40Q ; PRINTER READY MASK 

EQU 340Q ;RS-232 HANDSHAKE PROTOCOL 

EQU 37Q ;PARITY AND BAUD RATE MASK 



READY 
OUT OF 



PAPER 



; ************* 

; VARIABLE SPA 
- ************* 



DPLIM 
LWDSP 
YDBUF 
I0BUF 
IBUFH 
IBUFL 
IBUF1 
IBUF2 
DPSTR 
PRBLN 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



17 

15 

17 

17 

10 



17 

17 

17 

25 



*************** 

CE ALLOCATION * 
*************** 

5377Q ;DISPLAV 

00OOQ/256 ;DISPL 

54 00Q 

6000Q 

BUF/256 



UPPER LIMIT 
AY LOWER LIMIT 



;-IBUFH*256+I0BUF 



; ************* 

; OPERATING SY 
; ************* 



STACK 
OSTOR 

BASEH 
BASE 
BSEH2 
BASE2 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



FT 
17 

OS 
BA 
BA 
BS 



; ************* 

; VARIABLE SUB 
; ************* 

EONTF EQU OST 
CTFAD EQU EO 



600 OQ 

6400Q 

7000Q+79 ;MESSA6 

6 ;PRINTER 

************** 

STEM STORAGE * 
************** 

RAM+14GQ ; STACK 
7720Q ;VARIABLE 
TOR/256 ;MSB OF 
SEH*256 ;DATA PA 
SEH-1 ;BASE VAL 
EH2*256 ;0F VAR 
************** 

ROUTINE CALL * 
************** 

OR-3 ;JUMP SUBRO 
NTF+1 ;CHARACTE 



E BUFFER 

INPUT BUFFER SIZE 



AREA (96 BYTES) 
S STORAGE AREA 

DATA PAGE ADDRESSE 
GE BASE ADDRESS 
UES FOR SECOND PAGE 
IABLES SPACE 



UTINE 

R FUNCTION 



ADDRESS 



; ************* 

; NORMAL/SOFT 
************* 

EQU EONTF-2 



TPLIN 



******************************** 

KEY SWAPPED DISPLAY PARAMETERS * 
******************************** 



LTLIN EQU TPLIN-2 



LTCOL 
LTROW 



EQU 
EQU 



LT 
LT 



LIN-1 
COL-1 



;LSB PART 
POINTER 
LINE 

;P01NTER TO 
NEXT LINE 
LAST LINE 

;COLUMN AND 



OF NEXT LINE 
IN TOP DISPLAY 



LSB PART OF 
POINTER IN 
PROCESSED 
ROW POSITION OF 
;LAST CHARACTER PROCESSED 
(CORRESPONDS TO CHARACTER 
GIVEN BY "CURADR**) 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F ILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2G 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2U 
20 



FILE 20 
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FILE 20 

FILE 20 

FILE 20 

FFC6 LTDCO EQU LTROW-1 ;LAST DISPLAY CODE USED FILE 20 

FFC5 LTFMT EQU LTDCD-1 ;LAST FORMAT CONTROL USED FILE 20 

FFC3 CRADR EQU LTFHT-2 ;ADDRESS OF LAST CHARACTER FILE 20 

; PROCESSED FILE 20 

FFC2 POFLD EQU CRADR-1 ;PROTECT STATE OF CcURADR) FILE 20 

; = -1, PROTECTED FILE 20 

; # -1, NOT PROTECTED FILE 20 

;************************ FILE 20 

; CURRENT CURSOR VALUES * FILE 20 

;*****#****************** FILE 20 

FFC1 CRCOL EQU POFLD-1 ;CURRENT COLUMN AND ROW FILE 20 

FFCO CRROW EQU CRCOL-1 ;POSITION OF CURSOR FILE 20 

FFBF LTMGN EQU CRROW-1 ;LEFT MARGIN SETTING FILE 20 

FFBE RTMGN EQU LTM6N-1 ;RIGHT MARGIN SETTING FILE 20 

OOOF NMSWP EQU EONTF-RTMGN ;# OF SWAP VARIABLES FILE 20 

FFAF SPSTR EQU RTMGN-NMSWP ;SUAP BUFFER FILE 20 

FFAE DPTYP EQU SPSTR-1 ; DISPLAY CURRENTLY ENABLED FILE 20 

= NORMAL DISPLAY FILE 20 

; -1 = SOFT KEY DISPLAY FILE 20 

;*************************#*************** FILE 20 

; FIXED DISPLAY PARAMETERS (NOT SWAPPED) * FILE 20 

;***************************************** FILE 20 

FFAC FBLKS EQU DPTYP-2 ;FREE BLOCKS LIST HEAD FILE 20 

FFAA DPBGN EQU FBLKS-2 ;LOW ADDRESS OF DISPLAY AREA FILE 20 

FFA8 DPEND EQU DPBGN-2 ;HIGH ADDR OF DISPLAY AREA FILE 20 

FFA6 STKYS EQU DPEND-2 ;SOFT KEY DISPLAY START ADDR FILE 20 

FFA4 CRFKY EQU STKYS-2 ;CURRENT FUNCTION KEY CHAR FILE 20 

FFA3 TLINO EQU CRFKY-1 ;TOP LINE ABSOLUTE ROW NUMBE FILE 20 

FFA1 LLINE EQU TLINO-2 ;LAST DISPLAY LINE START ADD FILE 20 

FF9F FLINE EQU LLINE-2 ;P01NTER TO LSB PART OF NEXT FILE 20 

; LINE POINTER IN FIRST FILE 20 

; LINE OF NORMAL DISPLAY FILE 20 

FILE 20 



t 



;**********•********* FILE 20 

; SCRATCH VARIABLES * FILE 20 

;***#************#*#* FILE 20 

FF9E TEMPI EQU FLINE-1 FILE 20 

FF9D TEMP EQU TEMP1-1 ; TEMPORARY STORAGE FILE 20 

FF9C CARIN EQU TEMP-1 ;CHARACTER FROM KEYBOARD FILE 20 

FF9B NCHAR EQU CARIN-1 ;NUMBER OF CHARS TO BE ADDED FILE 20 

FF9A NROWS EQU NCHAR-1 ;N0. OF ROWS TO BE ADDED FILE 20 

FF99 NBLKS EQU NROWS-1 ;N0. OF BLOCKS TO BE ADDED FILE 20 

FF98 CHSAV EQU NBLKS-1 ;SAVE AREA FOR CHAR FILE 20 

; PRECEDING LINK FILE 20 

FF96 LKSAV EQU CHSAV-2 ;LINK SAVE AREA FILE 20 

FF94 ELADR EQU LKSAV-2 ;ADDR OF LAST EOL FILE 20 

FF92 FSTBL EQU ELADR-2 ;FIRST BLOCK IN DISPL1 FILE 20 

FF91 BKFIL EQU FSTBL-1 ;FILL FLAG FOR FNDCHR FILE 20 

FF90 EOLMV EQU BKFIL-1 ;FLAG FOR EOLMOV FILE 20 

FF8F FLCHR EQU EOLMV-1 ;FILL CHAR SAVE FOR GT8LK FILE 20 

CFFF BSPCE EQU 147777G ;UPPER LIMIT OF BUFFER FILE 20 

OOBO LWBUF EQU 130000Q/256 ;LOWER LIMIT FILE 20 

FF8D BFBGN EQU FLCHR-2 ;LOW ADDR OF NON-DISPLY BUFF FILE 20 

FF8B BFEND EQU 8FB6N-2 ;HIGH ADDR FOR BUFFER FILE 20 

;*********************•**#*************** FILE 20 

; STORAGE FOR CHARACTERS TO BE STORED * FILE 20 

J**************************************** FILE 20 

FF8A FTCTL EQU BFEND-t ^FORMAT CONTROL TO BE ENTERE FILE 20 

FF89 DCHAR EQU FTCTL-1 ;NEXT CHAR TO BE DISPLAYED FILE 20 

FF88 CHAR EQU DCHAR-1 ;CURRENT CHAR BEING PROCESSE FILE 20 
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FF86 
FF85 



FF84 
FF83 
FF82 

FFBB 
FFDA 
FFD9 



OOOA 
FF78 



FF77 
FF76 
FF75 
FF73 



FF72 
FF71 

FF70 

0100 
0200 
0400 
0800 
1000 
2000 
4000 
8000 

FF6F 

0001 
0002 
0004 
0008 
0010 
0020 
0040 
0080 

FF6E 

0001 
0002 
0004 
0008 
0010 



CKRTN 
TPCOL 



EQU 
EQU 



CHAR-2 
CKRTN-1 
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;CURRENT TYPE CHECK ROUTINE 
rCOLUKN # STORAGE FOR RCADDR 



EQU 
EQU 
EQU 

EQU 
EQU 
EQU 



TPCOL-1 
COUNT-1 
NROLL-1 

PARM1 
PARM2 
PARK3 



;NUMBER OF BYTES 
;NUMBER OF LINES 
;ROLL COUNTER 



;NEW COLUMN NUMBER 

;NEW ABSOLUTE ROW NUMBER 

;NEW SCREEN ROW SETTING 



; ********************************* 

; STORAGE FOR CURSOR POSITIONING * 
• ********************************* 

COUNT 
NROLL 
RLLCT 

NWCOL 
NWROW 
SRNRW 

; ***** 

; HORI 
; ***** 
HBLEN 
HBTBL 
; ***** 

; DISP 

; ***** 

CSPEN 
EHOUT 
Ci-TST 
GTAOR 
;***** 

; FLAG 
; ***** 
CRSET 
KFCTK 
; ***** 

MFLGS 

;***** 

SDC2 

SSTAT 

STAT2 

SDVST 

SRSEN 

SCTKY 

SNTER 



TO 

TO 



FILL 
ROLL 



****************** 
ZONTAL TAB TABLE * 
****************** 

EQU 10 ; TABLE LENGTH (= 10 X 8) 

EQU RLLCT-HBLEN 
****************** 

LAY SEND STORAGE * 
****************** 

EQU HBTBL-1 ; CURRENT ENHANCEMENT IN 
EQU CSPEN-1 ;LAST ENHANCEMENT OUT 
EQU EHOUT-1 ;CURRENT ALTERNATE SET OUT 
EQU CLTST-2 ;CURRENT CHARACTER ADDRESS 

********************** 

S AND TABLE POINTERS * 
********************** 

EQU GTAOR-1 ;CURRENT ALTERNATE CHAR SET 

EQU CRSET-1 ;KEYBOARD FUNCTION CODE 

******************************************* * 

EQU KFCTK-1 ;BLOCK TRANSFER PENDING FLAG 
******************************************** 

EQU 1Q*256 ;DC2 PENDING 

EQU 20*256 ;TERMINAL STATUS PENDING 

EQU 4Q*256 ;TERKINAL STATUS 2 PENDING 

EQU 100*256 ; DEVICE STATUS PENDING 

EQU 200*256 ;CURSOR SENSE PENDING 

EQU 400*256 ; FUNCTION KEY PENDING 

EQU 1000*2 56 ;DISPLAY SEND PENDING 



SVDUN 

;***** 

KL6S2 

;***** 

SVREC 

SINRY 

RLSNS 

EC1NP 

FSOUT 

WPDEL 

WPFL6 

NRWST 

;***** 

DFL6S 

; ***** 

SACOM 
CTXFR 
NSEND 
SPTRM 
FTK2D 



EQU 200Q*25~5 J&EVUE DONE PENDING 

************************************ 

EQU MFLGS-1 ;KAIN CODE MODE FLAGS 
************************************ 



EOU 1Q ;DEVICE RECORD PENDING 

EQU 2Q ;BINARY RECORD PENDING 

EQU 4Q ;RELATIVE CURSOR SENSE 

EQU 10Q ;ESC RECEIVED IN BLOCK MODE 
EQU 20Q ; FIRST SOFT KEY DATA OUT 
EQU 40Q ;DELETE CHAR W/ WRAP AROUND 
EQU 100Q ;LINE WRAP AROUND OCCURRED 
EQU 200Q ;NEW ABSOLUTE ROW SET 
*********************************** 

EQU MLGS2-1 ;DATA TRANSFER FLAGS 
*********************************** 

EQU 001 Q ;DATACOR/KEYeOARD 

EQU 2Q ;CONTINUE BUFFER TO DATA COM 

EQU 4Q ;N0 DISPLAY DATA TO SEND 

EQU 10G ;SKIP BLOCK TERMINATOR 

EQU 20Q ; FUNCTION KEY TO DISPLAY 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 20 
2U 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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0040 
0080 



FF60 

FFFF 

0000 
0001 

FF6C 

0020 
00 FF 

FF6B 
FF6A 
FF69 
FF68 
FF67 



FFD5 
FFDE 
FFD7 



FF66 

0080 
0040 
0020 
0010 
0008 
0004 
0002 
0001 

FF65 

0001 
0002 
0004 
0008 

0010 



KDLOK 
XF2DS 

r 

; ***** 
TMFCT 
• ***** 

SPXFR 
DLTRM 
INTRM 

;***** 

SPOWL 
; ***** 

SOWON 
SOWOF 

; ***** 

MKROW 
MKFLG 
LCHAR 
TCHAR 
CAFL6 

; ***** 

; POIN 
* ***** 

LADDR 
LDATA 
LHKSM 



EQO 
EQU 

***** 

EQU 
***** 

EQU 

EQU 

EQU 

***** 

EQU 

***** 

EQU 

EQU 
***** 

EQU 
EQU 
EQU 
EQU 
EQU 
***** 

TERS 
***** 

EQU 
EQU 
EQU 



1Q0Q 
200Q 



ERRORS = PAGE 12 



;KB LOCKED BY ESCAPE SEQUENC 
;I/0 BUFFER TO DISPLAY MODE 



*** *************** 

DFLGS-1 ;N0N-DI 

****************** 

-1 ;TERMIN 

; DELETE 

1 ; IGNORE 
****************** 

TMFCT-1 ;SPACE 

****************** 

40Q ;SPOW L 

377Q ;SPOW L 

****************** 

SPOWL-1 ;WEMORY 

MKROW-1 ;MEMGRY 

MKFLG-1 ;LAST C 



LCHAR-1 
TCHAR-1 



;CURREN 
;CURSOR 



****************** 

FOR BINARY LOADER 
****************** 

PARM6 ;BYTE A 
I DATA i INPUT 
PARM5 ;16-BIT 



****************** 
SPLAYING TERMINATOR 
****************** 

ATE TRANSFER 

TERMINATOR 

TERMINATOR 
************** 
OVERWRITE LATCH 
************** 
ATCH ON 
ATCH OFF 
********************* 

LOCK ROW 

LOCK FLAG 
HARACTER PROCESSED 
T TEST PATTERN CHAR 

ADVANCE FLAG 
* 
* 
* 

DDRESS PARAMETER 
DATA ACCUMULATOR 

CHECKSUM 



;V*V*V*V*V*V*V*V*V*V*V*¥*V*V*V*V*V*V 

; CTU/IO EQUATES - 4/11/76 - 2255 HOURS 

; TAPE DISTANCE MEASUREMENT 



AS OF 3/1/75, .017125" OF TAPE MOTION IS 
EQUIVALENT TO 1 TACH EDGE. THE COUNT IS 
IN ERROR WHEN STARTING OR STOPPING BY 
1 TACH EDGE (STOPPING IN A GAP 8AY CAUSE 
AN ERROR OF TWO TACH EDGES). 



*************** 
-1 ;CTU STATUS 

*************** 

;TACH INTERRUPT 
;BYTE READY 

;TAPE HOLE 

;TACH (58.4 EDGES/IN) 

;REC0RD IN PROGRESS 

;RIGHT CARTRIDGE INSERTED 
;LEFT CARTRIDGE INSERTED 
**************** 

-1 ;I/0 FLAGS 1 
**************** 

;READ WITHOUT WAIT MODE 
;READ KEY INITIATED READ 
;FILE READ 

/RECORD DISPLAY AND REWIND 
OLD OUTPUT CTU (LOGGING) 
;START "RECORD" WODE 



; **************** 


CSTAT 


EQU 


CAFLG 


; **************** 


TKI 


EQU 


200Q 


RDY 


EQU 


10QQ 


GAP 


EQU 


40Q 


HOL 


EQU 


20Q 


TAK 


EQU 


10Q 


RIP 


EQU 


4Q 


CIR 


EQU 


2Q 


CIL 


EQU 


1Q 


; **************** 


IFL6S 


EQU 


CSTAT 


; **************** 


RWOWT 


EQU 


1Q 


UREAD 


EQU 


2Q 


FLRED 


EQU 


4Q 


RCRWD 


EQU 


10Q 


RCINI 


EQU 


20Q 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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0020 

0080 

FF64 

0001 
0020 
0040 
0080 

FF63 

0001 
0002 
0004 
0008 
0010 
0020 
0040 
0080 

FF62 

0001 
0002 
0004 
0008 
0010 
0020 
0040 

FF61 

FF5F 

405 F 

FF5E 
FF5D 
FF56 

FF55 

0001 
0002 
0004 
0008 
0010 
0020 
0040 
008 



0001 
0002 
0004 
0008 



ETB2D 


EQU 


18 


XS2BF 


EQU 


4QS 


DPBTM 


EQU 


10QQ 


EDDSP 


EQU 


200Q 



LPM 


EQU 


1Q 


LTFWD 


EQU 


2Q 


FPS 


EQU 


4G 


€DEXC 


EQU 


10Q 


DLHOL 


EQU 


20Q 


BOT 


EQU 


4 0Q 


LP 


EQU 


100Q 


EW 


EQU 


200Q 



RCP6E EQU 40Q /FILE COPY FROM DISPLAY - 

/ INHIBIT ROLL U^ 

VRIFY EQU 200Q /"CTU2BF" PERFORMS VERIFY 

;******************************** 

IFL62 EQU IFLGS-1 ;I/0 FLAGS 2 

- ******************************** 

/EXTERNAL BUFFER TO DATA COM 
/TRANSFER DISPLAY TO BUFFER 
/BOTTOM OF DISPLAY REACHED 
/END OF DISPLAY REACHED 

;******************************** 

UNITO EQU IFL62-1 /UNIT STATUS 

-******************************** 

/TAPE AT OR BEFORE LOAD PO I H 
;TAPE LAST MOVED FORWARD 
/TAPE WRITE PROTECTED 
SUCCESSFUL COMMAND EXECUTIO 
;DOUBLE HOLE FOUND 
;TAPE PAST BOT HOLES 
;TAPE PAST LP HOLE 
;TAPE PAST EW HOLE 

; ******************************************* 

CTRLO EQU UNITO-1 ;DATA TRANSFER FLAGS: * 

/ ******************************************* 

/END OF FILE 

/END OF VALID DATA 

/HARD ERROR 

;SOFT ERROR 

/INTERRUPT ERROR FLAG 

/WRITE ERROR 

;DATA RECORDED 

;********************* # ******** ********* ******** 

RLTAK EQU CTRLG-1 /GAP LENGTH COUNTER 

/♦A**************************************** 
ASTAK EQU RLTAK-2 /ABSOLUTE TACH COUNTER 

/ ****************************************** 

SRTAK EQU 40137Q /STARTING VALUE 

/A************************************************ 
FLNUM EQU ASTAK-1 /CURRENT FILE NUMBER 
STCNT EQU FLNUM-1 /SOFT ERRORS PER PASS 
OTHER EQU STCNT-7 /STORAGE FOR UNIT NOT SEL. 
/******************************************* 
CMND EQU OTHER-1 /CURRENT CTU COMMANDl * 
******************************************* 

/MOVE TAPE 

/FORWARD 

/FAST 

/RECORD 

/SELECT LEFT UNIT 

/GAP GENERATE 

/LIGHT FOR RIGHT UNIT 
/LIGHT FOR LEFT UNIT 
-***************************************** 
/ INPDEV # OUTDEV, BXSTAT - I/O DEVICES * 
/***************************************** 
LTCTU EQU 1Q /LEFT CARTRIDGE TAPE UNIT 
RGCTU EQU 2Q /RIGHT CARTRIDGE TAPE UNIT 
DSPLY EQU 4Q /DISPLAY 
PINTR EQU 106 /PRINTER 



EOF 


EQU 


1Q 


EVD 


EQU 


2Q 


HDERR 


EQU 


4Q 


STERR 


EQU 


10Q 


HDER1 


EQU 


20Q 


WTERR 


EQU 


40Q 


DTATR 


EQU 


10GQ 



RUN 


EQU 


1Q 


FWD 


EQU 


2Q 


FST 


EQU 


4Q 


REC 


EQU 


10Q 


USL 


EQU 


20Q 


GEN 


EQU 


40Q 


ANR 


EQU 


100Q 


ANL 


EQU 


2Q0Q 
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FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 
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FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 
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FILE 
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FILE 
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0010 
0020 
0080 

FF54 
FF53 
FF52 
0020 
FF51 
FF50 



FF4F 



FF4E 
FF4D 
FF4C 
FF48 
FF4A 
FF49 
FF48 
FF47 
FF46 
FF3D 
003 D 
FF3C 
FF3B 



FFDB 
FFDA 
FFD9 
FFD8 
FFD7 
FFD5 



FF3A 
FF39 
FF38 
FF37 
FF36 
FF35 



FF33 
FF31 
FF2F 
FF2C 
FF2B 
FF2A 
FF29 



ALTIO 
DTCOM 
BFBSY 

SNCNT 
CBLNK 
CBLTM 
CBDLY 
HtCNT 
TSTAL 
;***** 

; I/O 
; ***** 
ICERR 



IPDEV 
OTDEV 
ICDPT 
1ST A3 
ISTA2 
ISTA1 
I STAG 
XRLIM 
CPLIM 
BDBUF 
8DBFL 
BDPTR 
BDEND 



EQU 
EQU 
EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

* ** ** 

VARIB 

***** 

EQU 



2 0Q 

4 0Q 

200Q 

CMND-1 
SNGNT- 
CBLNK- 
40Q 
CBLTM- 
HLCNT- 
***** 

LES * 
***** 
TSTAL - 



;ALTERNATE I/O 
;DATA CORM 
;BUF HELD BY 



UNSPECIFIED DEV 



;NUM. OF K6SCAN 
1 ;BLINK MASK FOR 
1 ;BLINK TIMER 

;BLINK DELAY 
1 ;HOLE COUNTER 
1 ;TAPE STALL COUNTER 



PER CTU SCAN 
EJECT LIGHTS 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



ICERR- 

IPDEV-1 

OTDEV-1 

ICDPT- 

ISTA3- 

ISTA2- 

ISTA1- 

ISTAO- 

XRLlM" 

CPLIM- 

BDBUF- 

BDBUF- 

BDPTR-1 



;I/0 ERROR FLAG 
= NO ERROR 
-1 = ERROR OCCURRED 
;C0RRENT INPUT DEVICE 
;CURRENT OUTPUT DEVICE 
;DEVICE FLAG POINTER 
1 ;DEVICE STATUS BYTE 3 
1 ;DEVICE STATUS BYTE 2 
1 ;DEVICE STATUS BYTE 1 
1 ;DEVICE NUMBER FOR STATUS 
1 ;TRANSFER LIMIT 
1 ;COMPARE LIMIT 
9 ;BIN TO DECIMAL CONV BUFFER 
BASE ;LSB PART OF "B2DBUF" 

(LSB) 



1 ;B2DBUF "GET" POINTER 
;B2D8UF END POINTER 



I/O CONTROL VARIABLES 



ICDEV 
ICOUT 
ICINP 
ICTYP 
ICMND 
ICCNT 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



PARM1 
PARM2 
PA RM3 
PARM4 
PA RMS 
PARM6 



DEVICE FLAG 

OUTPUT DEVICE ACCUMULATOR 

INPUT DEVICE ACCUMULATOR 

COMMAND MODIFIER FLAG 

COMMAND TYPE FLAG 

DATA COUNT (2 BYTES) 



I/O BUFFER INFORMATION STORAGE 



B1STT EQU BDEND-1 ;STATUS OF FIRST BUFFER 

B1TYP EQU BtSTT-1 ;TYPE <-1=N0RM, 0=EOF, 1=EVD 

B1LEN. EQU B1TYP-1 ;LENGTH OF RECORD 

B2STT EQU B1 LEN-1 ;STATUS OF SECOND BUFFER 

B2TYP EQU B2STT-1 ;TYPE (-1=N0RW, Q=EOF, 1 = EVD 

B2LEN EQU B2TYP-1 ;LENGTH OF RECORD 

; STORAGE FOR CARTRIDGE TAPE INTERRUPT ROUTINES 



CIADR 
CISPT 
CIBPT 
CICNT 
CITRL 
CICSM 
CISTA 



EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 



B2LEN-2 
CIAOR-2 
CISPT-2 
CIBPT-3 
CICNT-1 
CITRL-1 
CICSM-1 



;ADDRESS 

;POINTER 

;POINTER 

;GENERAL 

; RE-READ 

; CHECKSUM 

;COMMAND 



(HAS SEVERAL USES) 
TO BUFFER STATUS 
TO BUFFER 
COUNTERS 
COUNTER^ HOLE CNTR 

COUNTER 
SOURCE FLAG 



STORAGE FOR READ AND RECORD 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
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FILE 
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FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FF27 
FF25 
FF24 



FF23 
FF22 



FF21 
FF20 



FE80 

FE7F 

0080 
0040 



FE7D 
FE7B 
FE79 
FE78 



FE77 



2800 
2802 
2805 
2808 
28 OB 
280E 
2811 
2814 
2817 



281A 
2810 
2820 
2823 
2826 



NTRED EQU CISTA-2 
LTRED EQU NTRED-2 
SPCTU EQU LTRED-1 



SVINP 
SVOUT 



EQU 
EQU 



SPCTU-1 
SVINP-1 



;PTR INTO BUF FOR NEXT READ 
;PTR INTO BUF FOR READ REPEA 
;SWAP CTU IN LOGGING MODE 
-1 = SWAP ENABLED 
= DISABLED 
;"INPDEV M SAVE FOR LOCAL RCR 
;SAVE OUTDEV DURING LCL READ 



; DATA FOR FORMAT DISPLAY STORAGE 

EDCOL EQU SVOUT-1 ;ENDIN6 COLUMN AND ROW FOR 

EDROW EQU EDCOL-1 ;PREV NQN-PROT ECTED FIELD 



EXTENDED MAIN CODE RAM AREA 



XRASP 
; ***** 

DVFL6 

• ***** 

CTUIN 
ALT IN 

;***** 

; PRIN 

;***** 

PRBBG 

PRSPT 

PRBPT 

PRABT 



PRFLG 



EQU 1772006 
**************** 

EQU XRASP-1 
******** ******** 

EQU 200Q 
EQU 100Q 
*************** 

TER VARIABLES * 
*************** 
EQU DVFLG-2 
EQU PRBBG -2 
EQU PRSPT-2 
EQU PRBPT-1 



******************* 
;DEVICE PRESENT FLAG 
******************* 
;CTU CODE PRESENT 
;ALTERNATE I/O PRESENT 



EQU PRABT-1 



;START OF PRINTER BUFFER 

;LOAD POINTER 

;UNLOAD POINTER 

;PRINTER ERROR FLAG 

= 0, NO PRINTER ERROR 

= -1 # PRINT ERROR OCCURRED 

;PRINTER TYPE FLAG 
= 0, NO PRINTER 
= 1, PARALLEL INTERFACE 
= Z, RS-232 INTERFACE 



******************************** 

ENTRY VECTORS TO I/O ROUTINES * 

******************************** 

KEYBOARD INITIATED FUNCTIONS 



IOORG 
ICKEY 
RDKEY 
CLRED 
RCKEY 
SLKEY 
TTCTU 
CNDTN 
RTCTU 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



24000Q 

IOORG+2 

ICKEY+3 

RDKEY+3 

CLRED+3 

RCKEY+3 

SLKEY+3 

TTCTU+3 

CNDTN+3 



;START OF I/O CODE 
;I/0 CONTROL KEY 
;READ KEY 
;CONTROL READ KEY 
;RECORD KEY 
;SELECT KEY 
;CTU SELF-TEST 
;CONDITION CARTRIDGE 
;SOFT RESET FOR CTU 



TAPES 



EXTERNALLY INITIATED FUNCTIONS 



ICNTL EQU 

ISTGO EQU 

IDNGO EQU 

IRDGO EQU 

RRDGO EQU 



RTCTU+3 ;I/0 CONTROL ESCAPE SEQUENCE 

ICNTL+3 ;SEND DEVICE STATUS 

ISTGO+3 ;SEND COMPLETION CODE 

IDNGO+3 ;SEND I/O RECORD 

IRD60+3 ;START REMOTE RECORD FUNCTIO 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


2C 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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FILE 
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FILE 


20 


FILE 
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FILE 
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20 


FILE 
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20 
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20 
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2829 
282C 



282F 
2832 
2835 
2837 
2 83 A 
283D 



FE67 

FE67 

OOOt 
0002 
Q004 
0008 
0020 
0040 
0080 

FE66 

0001 
0002 
0004 

FE65 



FE64 
FE63 
FE62 
FE61 
FE5F 

FE5E 



BRY60 


EQU 


RRDGO+3 


CDCDP 


E6U 


BRY60+3 


;******************** 


; INTERNAL 


ROUTINES * 


; ******************** 


CTMON 


EQU 


CDCDp+3 


PTPLN 


EQU 


CTMON+3 


DQCTI 


EQU 


PTPLN +3 


RABRT 


EQU 


DOCTI+2 


BYCHK 


EQU 


RABRT+3 


CINTR 


EQU 


BYCHK+3 



8YMF1 


EQU 


BYMF2 


EQU 


BYMF3 


EQU 


BYWF4 


EQU 



5000 
5003 
5006 
5009 
500C 
500F 
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;SEND BINARY DATA 
;SEND BINARY FILE 



;KONITOR CARTRIDGE DRIVES 
;PUT TOP LINE ONTO I/O DEV ■ S 
; INITIAL CTU INTERRUPT VECT0 
;ABORT USER INITIATED READ 
;WAIT UNTIL TAPE I/O DONE 
;CTU INTERRUPT ROUTINE 



;************************************** 

; BISY RAM VARIASBLE 

; 24 BYTES 

^ ************************************** 

BYRAM EQU 17712GQ+23 ;UPPER LIMIT 
- ************************************** 

BYFL1 EQU BYRAM ;BISY FLAG 1 

;************************************** 

BYMOV EQU 1Q ;BLOCK MOVE 

BYINS EQU 2Q ; INSERT 

BYBEF EQU 4Q /BE FEHLS2EI LE 

10Q ;RECORD 

40Q ;READ 

100Q 

200Q ; 

;************************************** 

BYFL2 EQU BYFL1-1 ;BISY FLAG 2 

; ************************************** 

BYFC1 EQU 1Q ; FLAG MAIN CODE- 

BYFC2 EQU 2Q ;ROUTINE F C E N T 

BYCIF EQU 4Q ;FLA6 C R I N S 

• ************************************** 

BYFL3 EQU BYFL2-1 ;BISY FLAG 3 

; ************************************** 

;BISY ROUT. MAIN CODE Z-FELDER 

• ************************************** 

;Z-FELD COLUMN* CRINS 
;Z-FELD CRINS 

;SCRATCH FELD 
;SCRATCH FELD 2-BYTES 
; F R E I 

;************************************** 

BYOOC EQU BYZ03-1 ;BISY ROUT. INPUT CHARACTER 
;************************************** 

r 
;************************************** 

ENTRY VECTORS TO BISY ROUTINES * 
; ******************* ********* ****** **** 



MODUL 20 K 

;ENTRY BISY MODUL 
;CHAR. INSERT MODUL 
;FULL RESET BISY INIT. 
;SOFT RESET BISY INIT. 
;GANZWORTREGEL 
;INSERT FROM DSPLA 



BYCI1 


EQU 


BYFL3-1 


BYCI2 


EQU 


BYCI1-1 


BYZ01 


EQU 


BYCI2-1 


BY202 


EQU 


BYZ01-1 


BYZ03 


EQU 


BYZ02-2 



r 
f 




START BI 


BYOOO 


EQU 


50000Q 


CRINS 


EQU 


BY 000+3 


BYFRE 


EQU 


CRINS+3 


BVSRE 


EQU 


BYFRE+3 


8Y100 


EQU 


BYSRE+3 


CI104 


EQU 


BY 100+3 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


2.0 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


F I LE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILF 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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5012 



0008 
0010 



CR050 EQU CI104+3 ;INSERT FROM DSPLA 



0000 




B 


0000 


50 




0001 


00 




0002 


F3 




0003 


3E83 




0005 


C32F01 


i 
i 

t 



******************** 

TERMINAL START-UP * 
******************** 



£6 IN 



ORG 


OQ 


Eau 


$ 


DB 


VERSN 


DB 


BEGIN/256 


DI 




MVI 


A„STROM+T 


JMP 


60 



E9 



;RGM PRESENT FLAGS 

; <= MOV f>,8; NOP) 
; DISABLE INTERRUPTS 
IEN+TMRGN 

;G0 TO START UP ROUTINE 
***************************** 
FIRMWARE INVOKED INTERRUPT * 
***************************** 

PCHL ;USE AS PCHL SUBROUTINE CALL 

ORG BE6IN+2QQ 
************************** 

TOP PLANE INTERRUPT 20B * 
************************** 

;SAVE A-REGISTER AND FLAGS 

;CLEAR C-FLAG 

;SET INTERRUPT CODE 

; HANDLE UNKNOWN INTERRUPTS 



0010 


F5 


PUSH PSW 


0011 


B7 


ORA A 


0012 


3E32 


KVI A„TWO 


oou 


C3CA15 


JMP ITRPT 


0018 




ORG BEGIN+30S 

- ****************** 

; TIMER INTERRUPT * 

;****************** 


0018 


F5 


PUSH PSW 


0019 


C5 


PUSH B 


001A 


3E33 


MVI A, THREE 


001C 


C30508 


JMP TINTR 


0020 




ORG BEGIN+4GQ 



0020 


F5 




0021 


3E34 




0023 


C3A911 




0028 




r 


0028 


F5 


* 
i 


0029 


E5 




002A 


3E35 




002C 


C39Q15 




0030 







;SAVE A-REGISTER, FLAGS 
;AND REGISTER B AND C 
;SET INTERRUPT CODE 
;CONTINUE TIMER ROUTINE 



********************** 

DATA COMM INTERRUPT * 

********************** 

PUSH PSW ;SAVE A-REGISTER AND FLAGS 
MVI A # FOUR ;SET INTERRUPT CODE 
JMP DMINT ;CONTINUE INTERRUPT PROCESS 
ORG BEGIN+50Q 

*********************** 

I/O DEVICE INTERRUPT * 
*********************** 



PUSH 


PSW 


;SAVE A-RE6 # STATUS 


PUSH 


H 


;AND H,L 


MVI 


A, FIVE 


;SET INTERRUPT CODE 


JMP 


IINTR 


;CONTINUE I/O ROUTINE 


ORG 


BEGIN+60Q 





************************** 

TOP PLANE INTERRUPT 60B * 

************************** 



0030 


F5 


0031 


B7 


0032 


3E36 


0034 


C3CA15 


0038 





PUSH 


PSW 


ORA 


A 


MVI 


A, SIX 


JMP 


ITRPT 


ORG 


BEGIN+70Q 



;SAVE A-REGISTER AND FLAGS 
;CLEAR THE C-FLAG 
;SET INTERRUPT CODE 
;HANDLE UNKNOWN INTERRUPTS 



; *********************** 
; TEST POINT INTERRUPT * 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILF 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2u 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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• *********************** 



0038 


F5 


PUSH 


PSW 


0039 


B7 


ORA 


A 


003A 


3E37 


MVI 


A, SEVEN 


003C 


C3CA15 


JMP 


ITRPT 


0040 




ORG 


BEGIN+100Q 



0040 


C35C19 


0043 


C39019 


0046 


C3D711 


0049 


C3FB11 


004 C 


C30012 


004F 


C30905 


0052 


C38C0F 


0055 


C3E50F 


0058 


C32616 


005B 


C32916 


005E 


C3BF16 


0061 


C3A919 


0064 


C37C10 


0067 


C37F14 


006A 


C38E06 


006D 


C3BE18 


0070 


C30410 


0073 


C36F14 


0076 


C39211 


0079 


C35216 


0Q7C 


C30817 


007 F 


C3C00D 


0082 


C3A403 


0085 


C30022 


0088 


C36921 


OOSB 


C3C70A 


008E 


C39520 


0091 


C3BB0B 


0094 


C37005 


0097 


C33C0B 


009 A 


C3110B 


0Q9D 


C3C91T 


OOAO 


5F0E 


00A2 


C30E12 


00A5 


C37615 


00 A 8 


C38608 


OOAB 


C37508 


OOAE 


C30507 


00B1 


C3CE0F 


00B4 


C36907 


00B7 


C3681C 


OOBA 


C30350 


OOBD 


C35E1C 


OOCO 


C31810 


00C3 


C3131D 


00C6 


C30003 


00C9 


C36A1E 


OOCC 


C3771E 


OOCF 


C35B0C 


00D2 


C3880C 



;SAVE A-REGISTER AND FLAGS 
;CLEAR THE C-FLA6 
;SET INTERRUPT CODE 
;HANDLE UNKNOWN INTERRUPTS 



;******************************** 

; VECTORS TO MAIN CODE ROUTINES * 

************ 
; DISPLAY MESSAGE 
;RESTORE NORMAL DISPLAY 
ACCUMULATE DIGIT AND SIGN 
;FOR PARAMETERIZED ESCAPE 
^SEQUENCES 
;TERM1NATE ESCAPE SEOUENCE 



; ******************** 



ZSPMS; 



J MP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

DW 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 



DPMS6 
RTDSP 
DCNUM 
DPLUS 
DWNUS 
ECEND 
CKLIM 
CBLXF 
SLXFO 
SLXFA 
SRTBL 
CURPH 
CRPHD 
FECNT 
PTBLK 
CEARL 
CEARS 
FDTB2 
STERM 
STRM1 
XUTDC 
TMTST 
CINTO 
IITDG 
6TDSP 
LFEED 
EPAND 
NTCHR 
GTDCM 
MKSCQ 
MKOFO 
HN6U0 
BFMSG 
DTEST 
IRMGO 
B2DEC 
B2DE0 
RADRA 
6M0DE 
RADDR 
IRPON 
CRINS 
IHOFF 
CURPL 
CURPR 
WL215 
CRRET 
CRPRT 
RLLUP 
RLUP2 



KEYBOARD INITIATED BLK XFR 

START BLOCK RECORD 

HOME CURSOR (-XMIT ONLY) 

CURSOR HOME DOWN 

CHECK NUMBER OF FREE BLOCKS 

RELEASE BLOCKS FROM DISPLAY 

CLEAR LINE 

CLEAR DISPLAY FROM CURSOR 

SET BIT N CB-REG = N) 

SEND TERMINATORS 

SEND TERMINATOR ONLY 

TRANSMIT CHARACTER IN A-REG 

TERMINAL SELF-TEST 

EXECUTE CHARACTER FUNCTION 

INIT FOR DISPLAY GET 

GET DISPLAY BYTE 

DO LINE FEED 

EXPAND DISPLAY CONTROL CHAR 

GET NEXT DISPLAY CHARACTER 

PROCESS DATA COMM INPUT 

LOCATE FIRST UNLOCKED ROW 

TURN OFF MEMORY LOCK 

HANG TERMINAL ON FATAL ERRO 

BUFFER OVERFLOW MESSAGE 

DATA COMM SELF-TEST 

EXECUTE CODE FROM OPTION RO 

CONVERT BINARY TO DECIMAL 

CONVERT SINGLE BYTE TO DEC 

LOCATE CURSOR LOCATION 

CHECK FOR PAGE MODE 

DETER. LOC. OF ASCI CHAR. 

INSERT CHAR. ON WITH WRAP. 

INSERT CHARACTER 

ISERT CHARACTER OFF 

CURSOR POINTER LEFT 

CURSOR POINTER RIGHT 

RETURN FROM BISY MODUL NO EXECUTE 

RETURN 



;ROLL UP 



FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

F ILE. 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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001)5 


C30718 


JMP 


CDOOO 


i 


00D8 


C38E17 


JMP 


DLWRP 




OODB 


C31618 


JMP 


CD100 




OODE 


C3F206 


JMP 


PTLIN 




00E1 


C3580A 


JMP 


LNINS 




00E4 


C37B1C 


JMP 


CRADV 




00E7 


C30F0A 


JMP 


LNDEL 




OOEA 


C31B12 


JMP 


DXB2D 




OOED 


C3251D 


JMP 


CURPD 




OQFO 


C3531D 


JMP 


CURPU 




00F3 


C3DA1B 


JMP 


FDLSO 




00 F6 


C32E07 


JMP 


RADR4 




00F9 


C38AQB 


JMP 


NTCHO 




OOFC 


C3F90B 


JMP 


RLLDN 




OOFF 


C38B1E 


JMP 


DSPLC 




0102 


C39B1E 


JMP 


DSPLA 




0105 


C36A17 


JMP 


CHAIN 




0108 


C3630B 


JMP 


MLGCK 




010B 


C3B60C 


JMP 


SHST1 




010E 


C3921E 


JMP 


DSPC1 




0111 


C3C20F 


JMP 


CEOIT 




0114 


C3D922 


JMP 


IITD6 


# 


0117 


C31507 


JMP 


RADR1 




011 A 


C37317 


JMP 


CKFMS 




01 1D 


C31F19 


JMP 


CER02 




0120 


C30309 


JMP 


DSPL1 




0123 


C31618 


JMP 


CRDL1 




0126 


C3E018 


JMP 


C E RLO 




0129 


C32F01 


JMP 


60 




012C 


C3A102 


JMP 


WLOOP 





ERRORS = PAGE 19 



DEL. WITH WRAP 
DELETE 

INSERT LIME 
CURSOR ADVANCE 
DELETE LINE 



CURSOR 
CURSOR 



DOWN 
UP 



ROLL DOWN 
DISPLAY 
DISPLAY 
GET. ADR. 

TURN ON MEMORY LOCK 
SET ALT, CHAR. SET 
DISPLAY CONTROL CHAR. 
CECK EDIT MODE 
;INITIALIS. DISPLAY SET 



;************************************* 

; TERMINAL RESET - START UP TERMINAL * 
;************************************* 



012F 




60 


EQU 


$ 


012F 


D370 




OUT 


POCSR 


0131 


32F5FF 




STA 


PCCTL 


0134 


316091 




LXI 


SP,STACK 


0137 


3ACDFF 




LDA 


EONTF 


01 3 A 


FEC3 




CPI 


I J MP 



013C C27201 



;SET INITIAL PRO 
;SET PROCESSOR S 
;SET STACK POINT 

; FIRST TURN ON? 
;************************************* 

JNZ INIT ;YES - INITIALIZ 
• ************************************* 



CESSOR STATE 

TATE 

ER 



013F 


3AF8FF 




LDA 


CFL6S 


;N0 - GET COMMON 


0142 


E604 




ANI 


FCRST 


; FORCE FULL RESE 


0144 


C27201 




JNZ 


INIT 


;YES - INITIALIZ 


0147 


21DQFF 




LXI 


H,RTTMR 


;N0 - GET SOFT R 


014A 


B6 




ORA 


M 


;FULL RESET ACTI 


01 4B 


CA5301 




JZ 


60010 


;N0 - START SOFT 


014E 


FE32 


i 


CPI 


STDLY 


;STILL IN SOFT R 
(CAUSED BY CON 


0150 


C27201 




JNZ 


INIT 


;N0 - DO FULL RE 


0153 




60010 


EQU 


$ 


;YES - RESTART S 


0153 


3632 




MVI 


M,STDLY 


;N0 - SET 0.5 SE 






; **************** 








; DO 


SOFT RESET * 








;**************** 




0155 




601 


EQU 


$ 


;ENTRY FOR SOFT 


0155 


326EFF 




STA 


DFL6S 


;CLEAR DATA TRAN 


0158 


3E07 




MVI 


A,RETKB 





*********** 

E TERMINAL 
*********** 

FLAGS 
T? 

E TERMINAL 
ESET TIMER 
VE? 

RESET 
ESET START? 
TACT BOUNCE) 
SET 

OFT RESET 
C TIME OUT 



RESET 
SFER FLAGS 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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015A 
015D 
015F 
0162 
0165 



01 6B 
016E 
016F 



0172 
0172 

0173 

0176 
0179 
0179 
01 7A 
017B 



017E 
017F 
0181 
0181 
0184 
0185 



0188 
018B 
018E 
0190 
0193 



0196 
0199 
019C 
019E 
01A1 



CD0870 
3E02 
CDC 211 
211728 
CD7615 



0168 CD0950 



CD9019 

FB 

C38E02 



AF 
32C0FF 

210091 

77 
2C 
C27901 



5D 
26FC 

CD7410 

BC 

C28101 



21FFCF 

228BFF 

0660 

CD2405 

228DFF 



21FFFA 
22A8FF 
06 DO 
CD2405 
22AAFF 



01A4 


3E83 


01 A6 


32F5FF 


01A9 


3EC9 


01AB 


326591 


01 A E 


326891 



CALL 


ZBCTL 


MVI 


A,RETDC 


CALL 


DMCT1 


LXI 


H,RTCTU 


CALL 


IRptGO 



CALL BYSRE 



CALL RTDSP 

EI 

JMP START 



ERRORS = PAGE 20 



;RESET THE KEYBOARD 

; RESET THE DATA COMM 
; RE SET CARTRDI6E TAPES 
;IF CTU CODE PRESENT 

;RESET VARIABLE IN B1SY 
MODULN 

; RESTORE NORMAL DISPLAY 
;ENABLE INTERRUPTS 
;RESTART THE WAIT LOOP 



********************************************* 

INIT - DO COMPLETE TERMINAL INITIALIZATION * 
********************************************* 

NIT 



II010 



EQO 


$ 


XRA 


A 


STA 


EONTF 


LXI 


H,FTRAM 


E6U 


S 


MOV 


M,A 


INR 


L 


JNZ 


1 1 010 



; CLEAR TO ZERO 

; CLEAR "JMP" TO FORCE 

RESET 
;SET FIRST ADDRESS 

;SET BYTE TO ZERO 

;ALL BYTES DONE? 

;N0 - CLEAR NEXT BYTE 



FULL 



CLEAR SLOW RAM AREA 



MOV 
MVI 
1 1 020 EQU 
CALL 
CMP 
JNZ 

;********** 

; LOCATE NO 

;********** 
LXI 

SHLD 
MVI 
CALL 
SHLD 



E,L ; 

H,IBUFl/256 

$ 

CRAL1 ; 

h ; 
1 1 020 
************ 

N-DISPLAY SP 

************ 

H„BSPCE ; 
BFEND 

B,LWBUF ; 
FDRAM 
BFB6N 



SET E = FOR 256 BYTES 
;SET START ADDRESS 

CLEAR A 256 BYTE SECTION 
ALL SECTIONS CLEARED? 
NO - CONTINUE CLEARING 
***** 

ACE * 
***** 

SET UPPER BOUNDARY ADDRESS 

;0F NON -DISPLAY BUFFER ARE 
SET B TO MSB OF LOWER LIMIT 

STORE BUFFER START ADDRESS 



LOCATE DISPLAY SPACE 



LXI H,DPLIM 
SHLD DPEND 
MVI B,LWDSP 
CALL FDRAK 
SHLD DPBGN 

i 

^ ********************* 

; INITIALIZE PROCESSOR 

; AND DATA COMM 

; ********************* 

MVI A,STRQM+TM 



STA 
MVI 
STA 
STA 



PCCTL 
A,IRET 
ITVEC 
SNVEC 



;SET UPPER BOUNDARY ADDRESS 

;0F DISPLAY AREA 
;SET B TO MSB OF LOWER LIMIT 

;STORE DISPLAY START ADDRESS 

************************* 
BOARD STATE, KEYBOARD, * 

* 

************************* 

IEN+TMRON 

; ENABLE ROM'S AND TIMER 

;PUT RETURN CODE INTO 
;INTERRUPT VECTOR AND 
; DISPLAY SCAN VECTOR 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 
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20 
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FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


F ILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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01B1 
01B4 
0187 
01BA 
01BD 



01C0 
01C3 
01C6 
01 C9 
01CC 
01CE 



0101 
01 D3 
01D3 
0104 
0107 
01 OA 
01DB 
010E 
01E0 
01E3 
01 E4 
01E4 



01 E7 
01EA 
01E0 
01EE 
01 EF 
01F1 
01F2 
01F3 
01F5 
01F6 
01F7 
01FA 
Q1FB 
01FC 
01FD 
01FE 

01FF 

0200 

0203 
0205 



CD0270 
C00878 
C03F05 
CD0B78 
DAC911 



210201 

224DFF 

2A3528 

22E1FF 

3EC3 

32E0FF 



3E00 

47 

210028 

CB8615 

78 

C2E401 

F680 

21F0FF 

34 

327FFE 



2AA8FF 

11F1FF 

19 

70 

F60F 

6F 

2B 

3600 

2B 

EB 

2AAAFF 

73 

23 

72 

EB 

13 

2B 
22ACFF 

060E 
44 



********************************* 

* INTERRUPTS ARE ENABLED BY THE * 

* DISPLAY ROUTINES USED DURING * 

* INITIALIZATION OF SOFT KEYS * 
********************************* 

CALL ZNIKB ;SET JUMPERS AND DC SWITCHES 
CALL ZNIDC ;FETCH BUFFER REQUIREMENTS 
CALL 6TBUF ^ALLOCATE BUFFER SPACE 
CALL ZN2DC ;COMPLETE DATA COMH IN1T 
JC HN6U0 ; (PROCESS ERROR IF ANY) 

******************************** 
SET DEFAULT I/O CONFIGURATION * 

******************************** 

LXI H,1*256+2 ;OUTPUT = RIGHT CTU (2) 
SHLO OTDEV ;INPUT = LEFT CTU (1) 
LHLD OOCTI ;SET INITIAL CARTRIDGE TAPE 
SHLO CIVEC ;1NTERRUPT VECTOR 
MVI A,IJMP ;SET JUMP COMMAND FOR 
STA CIJMP ;CTU INTERRUPT VECTOR 
******************************************* 

IDENTIFY OPTION I/O INCLUDED IN TERMINAL * 
******************************************* 



II110 



II130 



MVI 

EQU 

MOV 

LXI 

CALL 

MOV 

JNZ 

ORI 

LXI 

INR 

EQU 

STA 



A,Q 

$ 

B,A 

H # IOORG 

IRMG1 

A,B 

II130 

CTUIN 

H,TMTYP 

M 

f 

0VFL6 



;(SET FOR NO ALTERNATE I/O 

;SAVE ALTERNATE I/O STATUS 
;SET I/O START ADDRESS 
;OOES I/O CODE EXIST? 

; (GET CURRENT I/O OPTIONS) 
;N0 - DON'T SET I/O BIT 
;ELSE SET CTU PRESENT BIT 
;SET TERM TYPE TO INDICATE 

;I/0 CODE INCLUDED 

;SET I/O OPTIONS FLAG 



************* 
GENERATE FRE 

************* 
LHLD DP 
LXI D, 
DAD D 
MOV A, 
ORI BL 
MOV L, 
OCX H 
MVI M, 
OCX H 
XCHG 
LHLD DP 
MOV M # 
INX H 
MOV M A 
XCHG 
INX D 



*************************** 

E BLOCKS LIST FOR DISPLAY * 

*************************** 

END ;COMPUTE ADDRESS OF HIGHEST 

1-BLKSZ ;ADDRESSEB DISPLAY BLOCK 



L 

KSM 

A 





BGN 
E 



;c 

;s 

;s 



dcx 

SHLD 

SUI 
MOV 



H 
FB 

BL 



LKS 

KSZ-2 

H 



;s 
;A 

;s 

;S 



OMPUT 
;0F P 
;IN H 
;DISP 
ET IT 
;END 
ET NE 
;LOWE 
;BLOC 
;PART 
;HIGH 
WAP H 
DJUST 
FOR L 
ET FR 
;PART 
IN HI 
ET B, 
;PART 



E AD OR 
REVIOU 
IGHEST 
LAY BL 

TO ZE 
OF FRE 
XT BLO 
ST ADD 
K TO P 

OF NE 
EST BL 
IGH AN 

LOW A 
INKING 
EE BLO 

OF NE 
6HEST 
L TO A 

OF NE 



ESS OF 
S LINE 

ADORES 
OCK 

RO TO 1 
E LIST 
CK LINK 
RESSEO 
OINT TO 
XT LINE 
OCK 

D LOW A 
DDR TO 

DISPLA 
CKS HEA 
XT LINE 
BLOCK 
DDRESS 
XT BLOC 



LSB PART 

POINTER 

SED 

NDICATE 

OF 
DISPLAY 

MSB 
LINK IN 

DDRESSES 
LOW LIMI 
Y BLOCKS 
TO LSB 

POINTER 

OF MSB 
K POINTE 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



2G 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



FILE 20 
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20 
20 



02 06 6F 



MOV L,A 

i 

;******************** 

; CHAIN FREE BLOCKS * 
• ******************** 



;IN HIGHEST DISPLAY BLOCK 



022A 


014EFE 


0220 


214F14 


0230 


CD7C0B 


0233 


0E08 



0235 




I 


0235 


3E39 




0237 


91 




0238 


3243FE 


* 


023B 


3E78 


# 


023D 


91 




023E 


214DFE 




0241 


77 




0242 


2E41 





UPPER BYTE IN NEXT LOWER BLOCK 
' OF DISPLAY AREA 
MSB PART OF NEXT BLOCK LINK 



;COMPUTE ADDRESS OF OPPERMOS 
;BYTE IN NEXT LOWER BLOCK 



;LINK CURRENT BLOCK TO NEXT 
;LOWER BLOCK 

;SET H,L TO ADDRESS OF MSB 
;PART OF NEXT BLOCK LINK I 
;NEXT LOWER BLOCK 

;COMPARE A6AINST LOWER LIMIT 

;DISPLAY AREA EXHAUSTED? 
;N0 - CONTINUE LINKING BLOCK 
YES - SET UP INITIAL DISPLAY 



;START A NEW DISPLAY LIST 
;SET SOFT KEY START ADDRESS 

;T0 FIRST CHARACTER 
;SET CURRENT AND LAST ROW 

;T0 CONTROL FOR DISPLAY OF 



SET UP KEY DEFINITIONS 

LXI B^DPSTR-1 

LXI H^ABLIN ;TRANSFER ATTRIBUTE LINE 

CALL MVCHR 

MVI C,NFCTK ;SET NUMBER OF KEYS TO DEFIN 

BUILD ATTRIBUTE LINE 

II310 EQU $ 

MVI A,ZER0+9 ;COMPUTE FUNCTION KEY NUMBER 

SUB C 

STA DPSTR-ABLEN+2 

BUILD DEFINITION LINE 

MVI A,SALLX ; COMPUTE CHAR AFTER <ESC> 

SUB C ; (LOWER CASE <P>-<W>) 

LXI H,DPSTR-CRLOC 

MOV M,A ;SET DATA CHARACTER 

MVI L,DPSTR-ABLEN-BASE2 







# 


B,A 


= ADDRESS OF 






r 


D,E 


= LOWER LIMI 






# 


H,L 


= ADDRESS OF 






t 


IN CURRENT BLO 


0207 




II210 


EQU 


$ 


0207 


7D 






MOV 


A,L 


0208 


D602 






SUI 


2 


020A 


D20E02 






JNC 


1 1 220 


020D 


05 






DCR 


B 


020E 




II220 


EQU 


$ 


020E 


70 






MOV 


M,B 


020F 


2B 






DCX 


H 


0210 


77 






MOV 


M,A 


0211 


D60E 






SUI 


BLKS2-2 


0213 


6F 






MOV 


L„A 


0214 


60 






MOV 


H,B 


0215 


93 






SUB 


E 


0216 


78 






MOV 


A,B 


0217 


9A 






SBB 


D 


0218 


D20702 


* 




JNC 


II210 








SET 


UP INITIAL S 


021B 


CD4606 


t 




CALL 


IITDS 


021E 


2B 






DCX 


H 


021F 


22A6FF 






SHLD 


STKYS 


0222 


3E80 






MVI 


A,CTOFF 


0224 


32C0FF 






STA 


CRROW 


0227 


32C7FF 






STA 


LTROW 



20 
20 



FILE 
FILE 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 
FILE 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 
FILE 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 



20 
20 
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0244 
0245 
0248 
0249 
024A 



024D 
024E 
025t 
0252 
0255 
0258 



025B 
025E 



0261 
0261 
0264 
0265 
0268 
026B 
026D 



0270 
0270 
0273 
0274 

0277 
027A 
027C 
0270 
0280 

0282 
0282 
0285 



0286 
0286 
0288 



C5 

CD4C0F 
C1 
OD 
C23502 



AF 

32A1FF 

3D 

32AEFF 

CDA919 

CD1B1E 



CD4606 
C38602 



3A0D80 

B7 

CA7002 

3A0F80 

3E01 

C38202 



3A2580 

B7 

CA8202 

3A4580 

E61F 

17 

324580 

3E02 



3277FE 
C9 



3EC3 
32CDFF 



PUSH B 
CALL XS2DS 
POP B 
DCR C 
JNZ 11310 



ERRORS = PA6E 23 



;TRANSFER SOFT KEY DEFINITIO 
;T0 DISPLAY MEMORY 

;ALL KEYS DEFINED? 
;N0 - DO NEXT KEY 



********************************************* 
DONE - SET INITIAL DISPLAY STATE * 
*********************************** 



; SOFT KEYS 

;********** 
XRA 
STA 
DCR 
STA 
CALL 
CALL 

;********** 

; INITIALIZ 
*********** 



A 

LLINE 
A 
DPTYP 

CURPH 
SWAP 



;CLEAR LAST LINE POINTER 



CALL 
JWP 



;SET DISPLAY TYPE TO SOFT 

;KEY DISPLAY 
;HOME THE CURSOR 
;SAVE SOFT KEY PARAMETERS 
************************* 
£ FIRST LINE OF DISPLAY * 
************************* 
IITDS ;START A NEW DISPLAY LIST 
1 1 400 



• ************************* 
; INITIALIZE I/O DEVICES * 

; ************************* 

; PRINTER INITIALIZATION ROUTINE 



CHECK FOR 9866 PRINTER FIRST 



PRINI 



PRI10 



PR120 



1 14 00 



EQU 

LDA 

ORA 

JZ 

LDA 

MVI 

.IMP 

RS-232 

EQU $ 
LDA 
ORA 
JZ 

LDA 
AN1 
RAL 
STA 
MVI 

EQU 
STA 
RET 



$ 

PRST1 

A 

PRI10 

PRCL1 

A,1 

PR120 



PRST2 

A 

PR120 

PRCF2 
PRBD2 

PT0T2 
A„2 

$ 
PRFLG 



;6ET STATUS FROM 9866 PCA 
;IS INTERFACE INSTALLED? 
;N0 - LOOK FOR RS-232 PRNTR 
;YES - CLEAR THE PRINTER 
;SET PRINTER FLAG FOR 
;9866 PRINTER (= 1) 

PRINTER 2 



;GET STATUS FROM RS-232 PCA 
;IS RS-232 PCA INSTALLED? 
;N0 - SET FOR NO PRINTER 

;YES - GET CONFIG. STRAPS 
; ISOLATE BAUD AND PARITY 
;ADJUST FOR CONTROL OUTPUT 
;SET BOARD TO CONFIGURATION 
;SET FLAG FOR RS-232 PRINTER 



;SET PRINTER FLAG 



EQU 
MVI 
STA 



$ 

A,IJ«P 
EONTF 



SET JUMP COMMAND FOR 
; CHARACTER FUNCTION VECTOR 



FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 



20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

2D 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 



8080 MACRO ASSEMBLER, VER 2.4 



ERRORS = PAGE 24 



0288 CD0650 



028E 
028E 
0291 
0294 
0297 
029A 
029D 
029E 



02A1 
02A1 
02A4 



02A7 
02A7 



02AA 
02AD 
02AF 
02B2 
02B5 
02B7 
02BA 
02BD 
02C 



CD6102 

CD0905 

3A2970 

3272FF 

CD991C 

3D 

326CFF 



316091 
CDA405 



C07005 



3A6FFF 

E608 

C2D002 

3A6EFF 

E610 

C42515 

C2E502 

CDQ570 

CAE502 



02C3 


FEOD 


02C5 


C2D002 


02C8 


3A65FF 


02 CB 


E606 


Q2CD 


C43728 



02D0 




02D0 


2154FF 


02D3 


35 


0204 


F2A702 


0207 


36 OA 


0209 


C06891 


02 DC 


C06915 


02DF 


CD9D04 



CALL BYFRE 



************* ***■> 



;IN1TIALISIERE 
BISY KODULN 



*************************** 

INITIALIZE FLAGS AND RANGE TABLE ADDRESS * 
*************************** 



- **************** 



START 



EQU 

CALL 

CALL 

LDA 

STA 

CALL 

DCR 

STA 



$ 

PRINI 

EC END 

FSALT 

CRSET 

CA0V1 

A 

SPOWL 



;INITIALIS PRINTER 
;RESET NORMAL RANGE TABLE 
;S£T INITIAL ALTERNATE 

; CHARACTER SET 
;CLEAR CURSOR ADVANCE FLAG 
;CLEAR SPOW LATCH 



WAIT LOOP 



WLOOP EQU $ 
LXI SP 
CALL GT 

;************* 

; CHECK FOR DA 

;************* 
WL010 EQU $ 
CALL GT 
**#***"«"** 

CK FOR KE 



# STACK ;SET STACK POINTER 
DC1 ;SET DISPLAY CURSOR 
*************** 

TA COMM INPUT * 
*************** 



DCM 



;GET DATA COMM INPUT IF ANY 



**** 

CHE 

**** 



********* 



LDA 

AN I 

JNZ 

LDA 

ANI 

CNZ 

JNZ 

CALL 

JZ 



************** 
YBOARD INPUT * 
************** 

GS2 ;6ET MODE FLAGS 

INP ; ESCAPE SEQUENCE LOCK OUT? 

020 ;YES - IGNORE KEYBOARD 

LGS ;N0 - GET DATA TRANSFER FLAG 

K2D ; FUNCTION KEY TO DISPLAY? 

CTK ;YES - GET FUNCTION KEY CHAR 

200 ;PROCESS IF AVAILABLE 

TKY ;ANY KEYBOARD INPUT? 

200 ;YES - PROCESS IT 



ML 
EC 

WL 
DF 
FT 
GF 
WL 
ZE 
WL 



IF KEYBOARD 
OTHERWISE A 



LOCKED, 
= 377B 



A = CHARACTER HIT, IF ANY 



CPI 
JNZ 
LDA 
ANI 

CNZ 

r 
;********** 

; CHECK CTU 
* ********** 



WLQ20 



CR ;RETURN KEY HIT? 

WL020 ;N0 - CHECK CTU & DISPATCHER 

IFLGS ;USER READ OR FILE READ 

UREAD+FLRED ;PENDIN6? 

RABRT ;YES - ABORT REAO KEY 

******************************** 

•S AND PENDING BLOCK TRANSFERS * 
******************************** 

;DECREMENT SCAN COUNT 

;11 SCANS DONE? 

;N0 - RESTART DO NOTHING LOO 

;YES - RESET SCAN COUNT 

;D0 OPTIONAL DISPLAY SCAN 

;MONITOR TAPE DRIVES 

;CHECK PENDING BLOCK XFRS 



EQU 


$ 


LXI 


H,SNC 


OCR 


n 


JP 


WL010 


MVI 


M,10 


CALL 


SNVEC 


CALL 


ICTMN 


CALL 


DPTCH 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F ILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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pj^^mtm^tt^tflW 



02E2 C3A702 



02E5 
02E5 
02E8 
02E9 
02EB 
02EE 
02F1 
02F2 
02 F4 
02F7 
02FA 

02FI> 
02FD 
0300 

0300 
0301 
0302 
0303 
0306 
0308 
0308 
0300 
030E 
030F 
0312 
0313 
0316 
0317 



031A 
031 A 
031 C 
031F 
0321 
0324 
0327 
032A 



329CFF 
4F 

3EFE 

CDE015 

3AF8FF 

2F 

E630 

C2FD02 

CD1470 

C3A702 



C30050 



AF 

57 

B1 

F 26403 

FEA1 

F21A03 

D698 

87 

5F 

213114 

19 

CD6A17 

CF 

C3A102 



FEFO 

DA2D03 

FEF8 

022D03 

CD8917 

CC7B13 

C3A102 



JMP WLQ1G 



ERRORS = PAGE 25 



^RESTART DO NOTHING LOOP 



KEY HIT - CHECK FOR FUNCTION KEY 



WL20Q 



EQU 

STA 

MOV 

MVI 

CALL 

LDA 

CMA 

ANI 

JNZ 

CALL 

JMP 



$ 

CARIN 

C,A 



;SAVE 
;SAVE 



KEYBOARD 
THE BYTE 



A.377Q-SAC0M 



CRDFL 
CFL6S 



;CLEAR DATA 
;GET COMMON 



CHARACTER- 
IN C-RE6ISTER 



FLAG 



COMM INPUT 

FLAGS 

;BOTH RECEIVE MODE FLAG SET 
RVMDE+RMSET ;AND REMOTE ENABLED? 

WL205 ;N0 - PROCESS KEYBOARD INPUT 

ZBELL ;YES - SOUND BELL AND 

WL010 ;IGNORE KEY 



WL205 



ML215 




ENTRY STEUERUNG BISY MODULE 
;RETORN FROM BISY MODUL 



XRA 

MOV 

ORA 

JP 

CPI 

JP 

SUI 

ADD 

MOV 

LXI 

DAD 

CALL 

RST 

JMP 



A 

D,A 

C 

WL300 

FCLIM 

WL210 

FCLWR 

A 

E,A 

H,FCTAB 

D 

CHAIN 

RTJMP 

WLOOP 



KEY 



;N0 - PROCESS THE 

;CSET A # D = 0) 
; FUNCTION KEY? 
;N0 - PROCESS ASCII 
;TABLE FUNCTION? 
;N0 - CHECK FOR F1-F8 
;COMPUTE TABLE INDEX 



KEY 



; COMPUTE TABLE 
; (D = 0) 



ADDRESS 



;GET THE FUNCTION ADDRESS 
;60 PERFORM FUNCTION 
;RESTART WAIT LOOP 



CHECK FOR F1-F8 KEY 



WL210 



EQU 

CPI 

JC 

CPI 

JNC 

CALL 

CZ 

JMP 



$ 

FCODE 

WL250 

F8C0D+1 

WL25G 

CKSFK 

FTKEY 

WLOOP 



;IS THE KEY F1-F8? 

;N0 - EXPAND ESCAPE SEQUENCE 



NO - EXPAND ESCAPE SEQUENCE 
SOFT KEY MODE? 
NO - PROCESS FCT KEY 
RESTART WAIT LOOP 



■ ************************ 

; PROCESS FUNCTION KEYS * 
• ************************ 



032D 




WL250 


EQU 


$ 




032D 


0E1B 




MVI 


C,ESC 


* 


032 F 




WL260 


EQU 


$ 




032 F 


CD5F06 




CALL 


LCLIO 


r 


0332 


219CFF 




LXI 


H, CARIN 


r 


0335 


7E 




MOV 


A,M 




0336 


FEFF 




CPI 


EHNCF 




0338 


CA5003 




JZ 


WL270 




033B 


FEFE 




CPI 


SF0R1 




033D 


CA5703 




JZ 


WL280 





SET ESCAPE AS INPUT CHAR 

;PROCESS KEYBOARD INPUT 
;RECALL KEYBOARD INPUT 

DISPLAY ENHANCEMENT CODE? 
YES - EXPAND INTO AMPERSAND 
ENTER FOREIGN MODE CONTROL? 
YES - CONTINUE SEQUENCE 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



C'c 



U v J • 



rfe/t 



(rtf/? c e* 



-f OO 
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0340 


FEED 




CPI 


SF0R2 


; COMPLETE FOREIGN MODE SET? 


0342 


CA5D03 




JZ 


WL290 


;YES - SET ENDING SEQUENCE 


0345 


E67F 




ANI 


1770 


;N0 - MASK OUT UPPER SIT 


0347 


BE 




CMP 


M 


; FUNCTION COMPLETED? 


0348 


CAA102 




JZ 


WLOOP 


;YES - RESTART WAIT LOOP 


034B 


77 




MOV 


M # A 


;N0 - SET NEW KEYBOARD CHAR 


034C 


4F 




MOV 


C,A 




034 D 


C32F03 




JMP 


WL260 


;PERFORM THE DESIRED FUNCTGN 


0350 




WL270 


EQU 


$ 




0350 


36E4 




MVI 


M,ECLWD 


;SET <ESO-<L0WER CASE D> AS 


0352 


0E26 




RVI 


C„APSND 


;CURRENT KEYBOARD CHARACTE 


0354 


C32F03 




JMP 


WL260 


; PROCESS AMPERSAND 


0357 




WL280 


EOU 


$ 




0357 


35 




DCR 


M 


;SET TO NEXT STEP CODE 


0358 


0E29 




MVI 


C,APARN 


;ENTER RIGHT PARENTHESIS 


035A 


C32F03 




J MP 


WL26G 


;PROCESS RIGHT PARENTHESIS 


035D 




WL29G 


EOU 


$ 




035D 


368E 




MVI 


M, ESC SO 


;SET <£SO-<S0> AS CURRENT 


035F 


0E01 




MVI 


c,c 


;KEYBOARD CHARACTER 


0361 


C32F03 




JMP 


WL260 


;PROCESS LETTER <C> 



0364 
0364 
0366 
0369 
036C 
036E 
0371 
0374 
0377 
0378 
037B 
037E 
0381 
0382 
0384 



0387 
0387 
038A 
038D 
038 F 
0392 
0395 
0397 
039A 
039C 
039F 
03A1 



DISPLAYABLE CHARACTER - CHECK FOR APPROACHING 
END OF LINE WARNING 



FE20 

DA 8703 

3A6EFF 

E610 

CC7317 

C28703 

3AD1FF 

B7 

C28703 

3AC1FF 

21BEFF 

96 

C651 

CC1470 



CD6A06 

3A9CFF 

FEOD 

C2A102 

3AF3FF 

E604 

CAA102 

2E01 

CD2812 

3E0A 

C3E502 



WL300 E6U 
CPI 
JC 
LDA 
ANI 
CZ 
JNZ 
LDA 
ORA 
JNZ 
LDA 
LXI 
SUB 
ADI 
CZ 

;********** 

; PROCESS T 
• ********** 

WL310 EOU 
CALL 
LDA 
CPI 
JNZ 
LDA 
ANI 
JZ 
MVI 
CALL 
MVI 
JMP 



$ 

CLLIM 

WL310 

DFL6S 

FTK2D 

CKFMS 

WL310 

ECFL6 

A 

WL310 

CRCOL 

H,RTMGN 

M 

BLLIM 

IB ELL 
******** 
HE KEY F 
******** 

$ 

LCLIN 

CARIN 

CR 

WLOOP 

MFL62 

ATOLF 

WLOOP 

L,1 

DELAY 

A^LF 

WL200 



DE? 

T LOOK FOR BELL 

ATA TRANSFER FLAG 

FUNCTION KEY OR 
OFT KEY MODE? 

BELL COLUMN CHEC 
SCAPE SEQ FLAG 
IN ESCAPE SEQ? 
T LOOK FOR BELL 
URRENT COLUMN 

RIGHT MARGIN 
GH TO RIGHT MARGI 

BELL? 
D BELL 



;CONTROL CO 
;YES - DON* 
;N0 - GET D 
;PROCESSING 

;FORMAT/S 
;YES - SKIP 
;N0 - GET E 
;CURRENTLY 
;YES - DON' 
;N0 - GET c 
; COMPARE TO 
;CLOSE ENOU 

;T0 SOUND 
;YES - SOUN 
********* 

UNCTION * 
********* 



;PERFORM LOCAL INPUT ROUTINE 
;RECALL KEYBOARD INPUT CHAR 
;WAS IT A RETURN? 
;N0 - RESTART WAIT LOOP 
;fES - GET MODE FLAGS 
;AUTO LINE FEED ENABLED? 
;N0 - RESTART WAIT LOOP 
;YES - DELAY 10 MILLISECONDS 
;TH6N SEND LINE FEED 

;FAKE LINE FEED FROM KEYBOAR 



- ************************ 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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03A4 
G3A4 
03A7 
03A8 
03AA 
03AD 
03AE 
03BC 
03B1 
G3B4 
03B5 

03B6 
03B6 
03 B8 
03BB 
03BD 
03C0 
03C1 
03C3 
03C4 
03C4 
03C7 
03C8 
03C9 
03CC 
03CD 
03C E 
03D0 



03D3 
0303 
0305 
0306 
0309 
03DA 
030B 
03DE 
03DF 

03E0 
03E1 



;SUBROUTINES* 
I****** ****************** 

• ************************ 

r 

; CHINT - INTERPRET INPUT CHARACTER 
; ENTRY: C = INPUT CHARACTER 



EXIT : 2 - FAST STORE USEO 

N2 - FULL PROCESSING USEO 
A-E,L DESTROYED 



TRY FAST STORE FIRST 



CINTO 



216FFF 

79 

FEOA 

C2B603 

7E 

F640 

BE 

CAC403 

77 

C9 



FEOO 

CA2004 

FE13 

CAC403 

7E 

F64Q 

77 

2167FF 

46 

05 

FA2D04 

70 

79 

FE20 

FA1C04 



CIOOO 



CHINT 



EQU 
LXI 
MOV 

CPI 

JNZ 

MOV 

ORI 

CMP 

JZ 

MOV 

RET 

EQU 

CPI 

JZ 

CPI 

JZ 

MOV 

ORI 

MOV 

EQU 

LXI 

MOV 

OCR 

JM 

MOV 

MOV 

CPI 

JM 



$ 

H,MLGS2 

A,C 

LF 

CIOOO 

A,M 

WPFL6 

M 

CHINT 

M # A 



$ 

CR 

CINT1 

0C3 

CHINT 

A,M 

WPFLG 

M # A 

$ 

H,CAFL6 

B,M 

B 

CI100 

M„B 

A,C 

CLLIM 

CI 050 



ENTRY FO 
SET H,L 
POT INPU 
CBARACTE 
NO - CHE 
YES - 6E 
TURN ON 
WRAP FLA 
YES - EX 
NO - SET 
;ANO 16 



I/O INPUT 
TO MODE FLAGS 2 
T CHAR IN A-REG 
R = LINE FEED? 
CK FOR CR/0C3 
T MODE FLAGS 2 
WRAP FLAG 
G ALREADY ON? 
ECUTE LINE FEED 

WRAP FLAG 
NORE LINE FEED 



;CHARACTER = 
;YES - DON'T 
;CHARACTER - 
;YES - DON'T 



RETURN? 

SET WRAP FLAG 

0C3? 

SET WRAP FLAG 



;N0 - SET WRAP FLAG 



;UPOATE MODE FLAGS 2 



;WAS LAST CHARACTER FUNCTION 

;A CURSOR ADVANCE? 
;N0 - DO FULL PROCESSING 
;YES - CLEAR FLAG 
;PUT INPUT CHARACTER IN A-R E 
;IS CHARACTER A CONTROL CODE 
;VES - CHECK FOR DISPLAY FCT 
NO - 00 FAST STORE 



FAST STORE PROCESSING 



CI010 



2E6C 

46 

2AC3FF 

7E 

67 

FA2D04 

2B 

7E 

B7 

F 201 04 



EQU 

MVI 

MOV 

LHLD 

MOV 

ORA 

JM 

OCX 

MOV 

ORA 

JP 



L,.SP0WL-8ASE 



B # M 

CRAOR 

A,M 

A 

CI100 

H 

A # H 

A 

CI020 



;GET 
;GET 



THE SPOW LATCH IN B-REG 
LAST CHAR DONE ADDRESS 

;6ET LAST CHARACTER DONE 

;IS IT ASCII? 

;N0 - DO FULL PROCESSING 

;YES - GET NEXT CHARACTER 



;IS IT 
;YES - 



ASCII? 
OVERLAY 



EXISTING CHAR 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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20 
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20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 
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FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 




c 
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03E4 


FECG 


03E6 


C22D04 


03E9 


47 


03EA 


2B 


03 EB 


7E 


03EC 


FEC3 


03EE 


C22D04 


G3M 


3AC0FF 


03F4 


F640 


03F6 


F3 


03F7 


322780 


03FA 


3E04 


03FC 


328380 


03FF 


70 


0400 


23 



0401 




0401 


79 


0402 


B8 


0403 


CA0704 


0406 


71 


0407 




0407 


CB1D0F 


040A 


22C3FF 


040D 


21C8FF 


0410 


34 


0411 


CD7B1C 



0414 
0414 
0415 
0418 
041B 



041 C 
041 C 
041F 
0422 
0423 
0425 
0428 
042A 



BF 

3AC1FF 
320780 
C9 



COBCOF 

CA2D04 

79 

FEOD 

CA2D04 

FE1B 

C2D303 



CPI 


EOL 


;IS 11 


JNZ 


CI100 


;N0 - D 


MOV 


B,A 


;YES - 


OCX 


K 


;SPOW 


MOV 


A r M 


;GET NE 


CPI 


FILL 


;IS IT 


JNZ 


C1 100 


;N0 - D 


LDA 


CRROW 


;YES - 


ORI 


MYEOL 


;SET DM 


DI 




;DISABL 


STA 


ICRRU 


;T0RN 


MVI 


A,RTOFF 


;DISABL 


STA 


IKBCG 




MOV 


M,B 


; STORE 


INX 


H 


;SET TO 



EOL? 

FULL PROCESSING 

SAVE EOL AND CLEAR 

LATCH COMPARE 
XT CHARACTER 
AN END OF LINE FILL? 
FULL PROCESSING 
ADD CHAR TO DISPLAY 
A OFF WITH EOL SKIP 
E INTERRUPTS 
FF DMA 
E RESET KEY 

NEW EOL 
OLD EOL ADDRESS 



ADD CHARACTER TO DISPLAY 



C1020 



CI030 



EQU 

MOV 

CMP 

JZ 

MOV 

EQU 

CALL 

SHLD 

LXI 

INR 

CALL 



$ 

A 

B 

CI 

«, 

$ 

DS 

CR 

H, 

M 

CR 



,C ;RECALL THE INPUT CHARACTER 
; STORE INHIBITED BY SPOW? 

030 ;YES - BYPASS STORE 

C ;N0 - STORE THE BYTE 

LN1 ;TURN DISPLAY BACK ON 

ADR ;STORE NEW CURRENT ADDRESS 

LTCOL ; INCREMENT LSTCOL 



• ************* 

; CHINT2 - SET 
; ************* 



ADV ;ADVANCE CURSOR 

*************************** 

CURSOR COLUMN ON DISPLAY * 
*************************** 



EXIT 



CINT2 



EQU 
CMP 
LDA 
STA 
RET 



Z TRUE 

A DESTROYED 

$ 
A 

CRCOL 
ICRCL 



;6ET 
;SET 



CURRENT 
DISPLAY 



COLUMN NUMBER 
CURSOR COLUMN 



RETURN 



CONTROL CODE - CHECK FOR DISPLAY FUNCTIONS 



C1050 



EQU 

CALL 

JZ 

MOV 

CPI 

JZ 

CPI 

JNZ 



$ 

CDSPF 

C1 100 

A,C 

CR 

CI100 

ESC 

CI010 



;DISPLAY FUNCTIONS ENABLED? 
;N0 - DO FULL PROCESSING 
;YES - RECALL INPUT CHARACTE 
;IS IT RETURN CHARACTER? 
;YES - DO FULL PROCESSING 
;IT IT AN ESCAPE? 
;N0 - DO FAST PROCESSING 
YES - DO FULL PROCESSING 



FULL PROCESSING 



042D 
042D 



CINT1 
CI100 



EQU 

EQU 



$ 

$ 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


F ILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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042D 


61 


042E 


69 


042F 


2288FF 


0432 


C0991C 



0435 



0448 
0449 
044A 
044B 
044 C 

044 E 
044F 
0450 
0453 
0454 
0455 
0456 
0457 

045 8 



0459 
0459 
04 5 A 
045D 
045F 
0461 
0463 

0466 

0469 
046C 



2AD2FF 



0438 




0438 


23 


0439 


23 


04 3A 


23 



043B 


79 


043C 


96 


043 D 


23 


043E 


DA3804 


0441 


07 


0442 


47 


0443 


7E 


0444 


B9 


0445 


DA3804 



23 

5E 

23 

7E 

E67F 

57 

96 

C25904 

68 

67 

19 

5E 

23 

56 



EB 

22CEFF 

0601 

26FF 

3E04 

328380 

CDCDFF 

CD230F 

CDBCOF 



MOV H,C 

MOV L # G ;SET "CHAR" AND "DCHAR" TO 
SHLD CHAR ;CURRENT CHARACTER 
CALL CADV1 ; CLEAR CURADV FLAG 

******************************** 

; DETERMINE CHARACTER FUNCTION * 

; ******************************* 

LHLD RNGTA ;GET CURRENT RANGE TABLE ADD 

;****************************** 

; ADVANCE TO NEXT TABLE ENTRY * 
;****************************** 
CI110 EQU $ 

INX H 

INX H 

INX H 

• ************************************* 

; COMPARE CHARACTER TO CURRENT RANGE * 

;************************************* 

;PUT CHARACTER IN A-RE6ISTER 
;CHARACTER >= LOWER BOUND? 

;(SET H,L TO UPPER BOUND) 
;N0 - ADVANCE TO NEXT ENTRY 
;YES - DOUBLE DIFFERENCE AND 

;SAVE VALUE IN B-RE6ISTER 
;GET UPPER BOUND 
;CHARACTER <= UPPER BOUND? 
;N0 - ADVANCE TO NEXT ENTRY 

• *********************************************** 
; CHARACTER FUNCTION FOUND - GET FUNCTION ADDR * 

; *********************************************** 



MOV 


A,C 


SUB 


M 


INX 


H 


JC 


C 11 1 


RLC 




MOV 


B,A 


MOV 


A,M 


CMP 


C 


JC 


CI110 



INX 
MOV 
INX 
MOV 
ANI 
MOV 
SUB 
JNZ 
MOV 
MOV 
DAD 
MOV 
INX 
MOV 



H 

E,M 

H 

A,M 

177Q 

D, A 

M 

CI200 

L,B 

H,A 

D 

E„M 

H 

D,K 



;PUT ADDRESS ENTRY IN 
;A (= MSB), E i~ LSB) 

;MASK OUT HIGH ORDER BIT 

; (PUT NEW MSB INTO D-REG) 
;USE INDEX TABLE? 
;N0 - USE AS FUNCTON ADDRESS 
;YES - PUT DIFFERENCE IN H # L 

; (A = 0) 
;COMPUTE TABLE ADDRESS 
;GET INDEX TABLE VALUE 



• **** 1 

; PER 
• **** 



****** 

FORM C 
****** 

CI2G0 EQU 
XCHG 
SHLD 
MVI 
MVI 
MVI 
STA 

;********** 
CALL 

;********** 

CALL 
CALL 



******************* 

HARACTER FUNCTION * 
******************* 
$ 



;SET FUNCTION ADDRESS 
;SET INITIAL FUNCTION INDEX 
;SET H TO DATA PAGE 
;DISABLE RESET KEY 



CTFAD 

B,1 

H,BASEH 

A,RTOFF 

IKBCO 
************************************* 

EONTF ;EXECUTE CHARACTER FUNCTION 
************************************* 

DSLN3 ;RE-ENABLE RESET KEY 

CDSPF ;DISPLAY FUNCTIONS ENABLED? 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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20 
20 
20 
20 
20 
20 
20 
20 
20 
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20 
20 
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20 
20 
20 
20 
20 
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Q46F 


C27E04 


JNZ 


CI270 


0472 


21D1FF 


LXI 


H,EGFLG 


0475 


46 


MOV 


B^ If 


0476 


05 


DCR 


B 


0477 


FA7E04 


JM 


CI 270 


04 7A 


70 


MOV 


M,B 


047B 


CC0905 


CZ 


EC END 


047E 


CI270 EGO 


$ 


047 E 


3A88FF 


LDA 


CHAR 


0481 


3269FF 


ST A 


LCHAR 


0484 


BC 


CMP 


H 


0485 


C9 


RET 





ERRORS = Q PAGE 30 



;YES - DON'T END ESCAPE 
;N0 - CHECK ESCAPE FLAG 



SEQ 



;ESCAPE SEQUENCE IN PROGRESS 
;N0 - DON*T CHANGE ESC FLAG 
;YES - UPDATE ESCAPE COUNTER 
;RESET RANGE TABLE POINTER 
COUNTER BECAME ZERO 



CHARACTER 



; ******************** 
; CHECK CONTROL CODES 
; BLOCK TRANSFER TR 
z ******************** 



;SAVE THE LAST 

;PROCESSED 
;SET Z FALSE 
; RETURN 



************************** 

FOR BLOCK TERMINATOR OR * 

I6GER * 

************************** 



ENTRY: € = INPUT CHARACTER 



0486 




*• 
C 


0486 


3A0478 




0489 


B9 




048A 


CAEEOC 




048D 


3A6EFF 




0490 


E601 




0492 


C8 




0493 


3A0278 




0496 


B9 




0497 


CO 




0498 




c 


0498 


3E01 




049A 


C3B711 




04 9D 




r 
D 


049D 


3AF8FF 




04A0 


E601 




04A2 


C8 




04A3 


3A70FF 




04A6 


21C504 




04 A9 


0E08 




04AB 




D 


04AB 


OF 




04AC 


DAC104 




04AF 


23 




04B0 


23 




04B1 


OD 




04 B 2 


C2AB04 




04B5 


3A6FFF 


r 


04B8 


OF 




04 B9 


DA2328 




04BC 


OF 




04BD 


DA2928 





KCTL 



KCT1 



EQU 

LDA 

CMP 

JZ 

LDA 

ANI 

RZ 

LDA 

CMP 

RNZ 

EQU 
MVI 
JMP 



$ 

BKTRM 

C 

SKYDS 

DFLGS 

SACOM 

TIGGR 
C 



$ 
A,STTRG 

DMCTL 



;6ET BLOCK TERMINATOR CHAR 
; INPUT = BLOCK TERMINATOR? 
;YES - DISPLAY INPUT 
;GET TRANSFER FLAGS 
;INPUT FROM DATA COMM? 
;N0 - DO NOTHING 
;IS INPUT CHARACTER THE 

;BLOCK TRANSFER TRIGGER? 
;N0 - DO NOTHING 

;SET BLOCK TRANSFER TRIGGER 
;G0 TO DATA COMM ROUTINE TO 
;SET BLOCK TRANSFER TRIGGE 



******************************************** 

DSPTCH - DISPATCH PENDING BLOCK TRANSFERS * 
******************************************** 

PTCH 

;GET COMMON FLAGS 
;BLOCK TRANSFER TRIGGER SET? 
;N0 - RETURN 

;YES - RELEASE ANY PENDING 
;BLOCK TRANSFERS 



DP010 



EQU 


$ 


LDA 


CFLGS 


ANI 


BKTRG 


RZ 




LDA 


MFL6S 


LXI 


H^DPTAB 


MVI 


C,NPND6 


EQU 


$ 


RRC 




JC 


DP 020 


I NX 


H 


INX 


H 


DCR 


C 


JNZ 


DP 010 


LDA 


MLGS2 


RRC 




JC 


IRDGO 


RRC 




JC 


BRY60 



;TRANSFER PENDING BIT SET? 

;YES - GO DO TRANSFER 

;N0 - CHECK NEXT BIT 

;INCREMENT FUNCTION TABLE AD 

;ALL BITS CHECKED? 

;N0 - CONTINUE CHECKING 

;YES - CHECK 2ND SET OF FLAG 
;DEVICE RECORD PENDING? 
;YES - SEND I/O RECORD 
;B1N DATA PENDING 
;YES TRANSMIT DATA 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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20 
20 
20 
20 
20 
20 
20 
20 
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04C0 C9 



Q4C1 




04C1 


CD6A17 


04C4 


E9 


04C5 




04C5 


9D11 


04C? 


2DGD 


04 C9 


6123 


04CB 


1D28 


04CB 


5911 


04CF 


C613 


04D1 


B012 


04 D3 


2028 



0008 



04D5 
04D5 
0408 
04 DA 
04DD 
04 EO 
04E2 
04 E4 
04E7 
04 E7 
04EA 
04ED 
O4F0 



04F3 
04 F3 
04F5 
04F5 
04 F8 

04 FB 
04FB 
04FE 
0500 
0503 
0503 
0506 

05 08 



3A6EFF 

E6Q1 

CAE704 

3AF3FF 

E602 

3E08 

C49516 

CD8917 
21E923 
CAF504 
21D523 



3E0A 

32D4FF 
22D2FF 

21DDFF 

1E03 

CD7410 

21B1FF 

3602 

€9 



RET ;N0 - RETURN 

• ********************************************** 

; PENDING BIT FOUND - GO TO TRANSMIT FUNCTION * 
- ********************************************** 

DP020 

;GET TRANSMIT FUNCTION ADDR 
;G0 TO THE FUNCTION 



DPTAB 



EQU 


$ 


CALL 


CHAIN 


PCHL 




EQU 


$ 


DW 


DC2G0 


DW 


SATGO 


DW 


SA2G0 


DW 


ISTGO 


DW 


CSNGO 


DW 


FEY60 


DW 


DPSGO 


DW 


IDNGO 



;SEND 
;SEND 
;SEND 
;SEND 
;SEND 
;SEND 
;SEND 
;SEND 



DC2 

TERMINAL STATUS 

TERMINAL STATUS 2 

I/O STATUS 

CURSOR ADDRESS 

FUNCTION KEY DATA 

DISPLAY DATA 

I/O TERMINATION CODE 



NPNDG EQU ($~DPTAB)/2 



********** 

ESCAPE CH 
********** 

CAPE EQU 



LDA 
ANI 
JZ 
LDA 
ANI 
MVI 
CNZ 
EC010 EQU 
CALL 
LXI 
JZ 
LXI 

; ********** 

ESCAPO - 
********** 



r 
# 
r 
r 
i 
i 
r 



******** 

ARACTER 
******** 

$ 

DFLGS 

SACOK 

EC010 

MFL62 

BKMDE 

A,ECINP 

STMF2 

$ 

CKSFK 

H, EC TAB 

ECAPO 

H,SSCTB 
******** 

SET RANG 
******** 



************ 

PROCESSING * 
************ 



;DATA FROM DATACOM? 
;N0 - DON'T LOCK KEYBOARD 
;YES - GET MODE FLAGS 
;BLOCK MODE? 

;(PUT IGNORE FLAG IN A-RE6 
;YES - SET IGNORE KEYBD FLAG 

;SOFT KEY MODE? 

;(SET FOR NORMAL ESC TABLE 
;N0 - SET RANGE TABLE 
;YES - USE SOFT KEY TABLE 
***************************** 
E TABLE FOR ESCAPE SEQUENCE * 
***************************** 



ENTRY: A = RADIX (BASE) FOR DIGIT PARAMETERS 
H,L « ADDRESS OF NEW RANGE TABLE 

EXIT : H # L * ESCFLG 

ESCAPA - USE DECIMAL RADIX 



r 

ECAPA 

ECAPO 



ECAPB 



ECAP1 



EQU 

MVI 

EQU 

STA 

SHLD 

EQU 

LXI 

MVI 

CALL 

EQU 

LXI 

MVI 

RET 



A,DCRDX 

$ 

RADIX 

RNGTA 

$ 

H # ICS6N 

E,3 

CRAL1 

$ 

H,ECFL6 

V\,2 



;SET RADIX FOR BASE 10 DIGIT 

;SET PARAMETER RADIX 
;SET NEW RANGE TABLE 
;ENTRY TO CLEAR ACCUMULATOR 
;CLEAR OUT THE PARAMETER 
ACCUMULATOR AREA 



;SET FLAG TO 
; FOLLOWING 
; RETURN 



RESET AFTER 
CHARACTER 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F IL E 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2D 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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0509 
0509 
050C 
050F 
0512 
0515 
0515 
0518 
0519 
051 C 



************* 

ESCEND - END 
************* 



***************** 

OF ESCAPE SEQUEN 
***************** 



ECEND 



218323 
CD8917 
CA1505 
21AF23 

22D2FF 
AF 

32D1FF 
3EF7 



ECEN1 



EQU 
LXI 
CALL 
JZ 
LXI 
EQU 
SHLD 
XRA 
STA 
MVI 
************* 

CLRMF2 - CLE 
************* 



$ 

H, 

CK 

EC 

H, 

$ 

RN 

A 

EC 

A, 



RABLE 
SFK 
EN1 
DSTBO 

GTA 



;SET FOR 
;SOFT KEY 
;N0 - USE 
;YES - 



US 



; RESET RA 

;CLEAR ES 

FL6 ;ESCAPE 

377Q-ECINP ;FLA 

***************** 

AR FLAG BIT IN MF 
***************** 



*************** 

CE PROCESSING * 
*************** 

NORMAL RANGE TABLE 

MODE? 

NORMAL TABLE 
E SOFT KEY TABLE 

NGE TABLE POINTER 
CAPE FLAG AND 

KEYBOARD LOCKOUT 
G 

****** 
LGS2 * 
****** 



051E 




CRMF2 


EQU 


$ 


051E 


216FFF 




LXI 


H,MLGS2 


0521 


A6 




ANA 


M 


0522 


77 




MOV 


M,A 


0523 


C9 




RET 





ENTRY: A = 377B - FLAG BIT TO BE CLEARED 

EXIT : A = UPDATED MFLGS2 VALUE 
H,L = MFLGS2 



;CLEAR THE FLAG BIT 
;STORE NEW SETTINGS 
; RETURN 



************************ 

FNDRAM - LOCATE END OF RAM SPACE 

ENTRY: B = MSB OF RAM SPACE LOWER LIMIT 
H,L = ADDR OF UPPER BOUNDARY 



0524 




0524 


AF 


0525 


6F 


0526 


77 


0527 


BE 


0528 


C23805 


052B 


35 


052C 


34 


052D 


C23805 


0530 


7C 


0531 


D6Q4 


0533 


67 


0534 


B8 


0535 


F22405 



FDRAM 



EXIT 



EQU 
XRA 
MOV 
MOV 
CMP 
JNZ 
DCR 
INR 
JNZ 
*0V 
SUI 
MOV 
CMP 
JP 



H # L = ADDRESS OF LOWER BOUNDARY 
A DESTROYED 



$ 
A 
L,A 

M,A 

M 

FM010 

M 

M 

FM010 

A,H 

4 

H,A 

B 

FDRAM 



;SET ADDRESS'S LSB TO ZERO 

;SET RAM LOCATION TO ZERO 

;ALL ZEROES STORED? 

;N0 - RAM LIMIT FOUND 

;YES - TRY TO SET TO ALL ONE 

;ALL ONES STORED? 

;N0 - RAM LIMIT FOUND 

;YES - MOVE TO NEXT 1K 



;RAM LIMIT REACHED? 
;N0 - TRY NEXT 1K 



RAM LIMIT FOUND - RETURN LOW BOUNDARY 



0538 
0538 
0539 



7C 

C604 



FM010 EQU $ 

MOV A # H 
ADI 4 



;ADJUST H,L TO TRUE 
;BOUNDARY 



LOWER 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2 
20 
20 
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0536 E6FC 
053D 67 
053E C9 



053F 
053F 
0542 
0545 
0548 
054B 
054E 
054E 
054F 
0550 



0551 
0551 
0554 
0557 
055A 
055D 
0560 
0563 



ANI 374Q 
MOV H # A 
RET 



ERRORS = PAGE 33 

;MASK FOR 1 K START ADDRESS 
; RETURN 



************************ 

6ETBUF - GET BUFFER SPACE 

ENTRYr B,C = LENGTH OF BUFFER REQUIRED 

EXIT : A,H,L DESTROYED 

P - BUFFER SPACE ALLOCATAED 

D,E = BUFFER START ADDRESS 
M - BUFFER SPACE NOT ALLOCATED 
D # E DESTROYED 

THIS ROUTINE ALLOCATES A CONTIGUOUS AREA OF 
RAM. THE BUFFER SPACE HAY NOT START ON A 
256 BYTE PAGE BOUNDARY. 



2A8BFF 
118EFF 
CD6605 
FA5105 
228BFF 

EB 
13 
C9 



GTBUF EQU $ 

LHLD BFEND 

LXI D,BFBGN+1 

CALL GB100 

JM GB01Q 

SHLD BFEND 

GB005 EQU $ 
XCHG 

I NX D 
RET 



;GET CURRENT BUFFER END AND 

;ADDRESS OF BEGIN PTR'S MS 
; ENOUGH SPACE? 
;N0 - TRY DISPLAY AREA 
;YES - STORE NEW BUFFER END 

;SET D,E TO LOW ADDRESS 

;0F BUFFER 
; RETURN 



NOT ENOUGH NON-DISPLAY RAM 



TRY DISPLAY AREA 



2AA8FF 
11ABFF 
CD6605 
22A8FF 
F24E05 
215F0E 
C3C911 



B010 EQU $ 

LHLD DPEND 

LXI D,DPBGN+1 

CALL GB100 

SHLD DPEND 

JP GB005 

LXI H,BFMS6 

JMP HN6U0 



;GET CURRENT DISPLAY END AND 
;ADDR OF BEGIN PTR»S MSB 

;ENOUGH SPACE? 

; (STORE NEW DISPLAY END) 

;YES - RETURN BUFFER ADDRESS 

;N0 - REPORT ERROR 



6TB100 - CHECK FOR AVAILABLE SPACE 



0566 




0566 


7D 


0567 


91 


0568 


6F 


0569 


7C 


056A 


98 


0568 


67 


056C 


EB 


056D 


BE 


056 E 


EB 


056F 


C9 



GB100 



EQU 


$ 


MOV 


A # L 


SUB 


C 


MOV 


L,A 


MOV 


A,H 


SBB 


B 


MOV 


H,A 


XCHG 




CMP 


M 


XCHG 




RET 





;SUBTRACT DESIRED SPACE 
;FROM END OF REGION 



;COMPARE NEW MSB OF END TO 

;MSB OF BEGINNING 
;PUT NEW END ADDRESS IN H,L 
/RETURN (P = ENOUGH) 



;***** ***************************** ******** 
; 6ETDCM - PROCESS DATA COMM INPUT IF ANY * 
; ****************************************** 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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0570 
0570 
0573 
0575 
0578 
057B 
057D 



0580 
0580 
0583 
0586 
0587 



0588 
0588 
058B 
058E 
0590 



0593 
0594 
0596 

0599 
059B 



059 E 
059E 
05A1 

05A4 
05A4 
05A7 



3AF3FF 

E608 

3AF8FF 

CAB805 

E610 

CC5713 



CD1778 
DAAA05 
GO 
4F 



CD6B16 
3AF4FF 
E640 
C39E05 



79 

FEOD 

CA9E05 

FEOA 

C22628 



CDC4Q3 
CA8005 



CD1D0F 
C31404 



05 AA 




05AA 


C2C911 


05AD 


CDBCOF 


05B0 


CC0905 


05B3 


0E7F 


05B5 


C38805 



ENTRYi DON*T CARE 

EXIT : NC 

NZ - DATA COMM INPUT BUFFER EMPTY 
Z - EXIT ON FULL INPUT PROCESSING 
ALL REGISTERS DESTROYED 



6TDCM 



EQU 

LDA 

ANI 

LDA 

JZ 

ANI 

CZ 



;GET HARD MODE FLAGS 
;REMOTE MODE ENABLED? 
;(GET COMMON FLAGS) 
;N0 - IGNORE DATA COMM 
;UAS REMOTE ON BEFORE? 
;N0 - SET REMOTE MODE 



***** 

GET 

***** 

C010 



***** 

PROC 
***** 

C020 



$ 

MFL62 
RMOTE 
CFL6S 
GC100 
RMSET 
ETREM 
***************** 

DATA COMM INPUT * 
***************** 

EQU $ 

CALL ZETDC ,* 

JC GCQ50 

;N0 - RETURN 
C,A ;YES - SAVE INPUT 
********************* 

ESS DATA COMM INPUT * 
********************* 
EQU $ 

CALL STDFO ;SET DATA COMM INPUT 
MFLG1 ;GET SOFT MODE FLAGS 
RCORD ;RECORD MODE ENABLED? 



RNZ 
MOV 



ANY DATA COMM INPUT? 
;(PROCESS ERROR IF ANY) 
- RETURN 

INTO C-REG 



FLAG 



LDA 
ANI 
JMP 



MOV 

CPI 

JZ 

CPI 

JNZ 



GCG30 



A,C 
CR 

GC030 
LF 

RRD60 



6C030 



6TDC1 



EQU $ 
CALL CHINT 
JZ GC010 

EQU $ 
CALL DSLN1 
JMP CINT2 



;N0 - PROCESS THE INPUT 



;YES - LOOK FOR RECORD TRIGG 

; INPUT = RETURN? 

;YES - PROCESS THE CHARACTER 

;IS IT LINE FEED? 

;N0 - EXECUTE RECORD FUNCTIO 



;YES - PROCESS THE CHARACTER 
;PERFORM INPUT PROCEDURE 
;FAST STORE - DO SHORT LOOP 

;SET THE DISPLAY CURSOR 
;SET DISPLAY CURSOR ROW AND 
;COLUMN AND EXIT Z-TRUE 



;******************************** 

; PROCESS DATA COMM INPUT ERROR * 
;******************************** 

GC050 EQU $ 

JNZ HNGUO 

CALL CDSPF 

CZ ECEND 

MVI C,ADEL 

JMP 6CO20 

; ******************************************* 

; NOT IN REMOTE MODE - SET TO LOCAL IF NOT * 
; IN LOCAL MODE ALREADY * 



; REPORT ANO HANG IF FATAL 
; DISPLAY FUNCTIONS ENABLED? 
;N0 - FORCE ESC SEQ ABORT 
;FORCE RUBOUT CHARACTER TO 
;BE DISPLAYED 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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******************************************* 



05B8 




05B8 


E610 


05BA 


C43C13 


05BD 


3C 


05BE 


C9 



GC100 



EQU 
ANI 
CNZ 
INR 
RET 



$ 

RMS.ET 
ETLCL 
A 



;FIRST TIME IN LOCAL? 
;YES - SET TO LOCAL MODE 
; FORCE Z FALSE 
;RETURN NO DATA COMf* INPUT 



;********************************** 

; GTBLK - GET A NEW DISPLAY BLOCK * 
I ********************************** 

; ENTRY: DON'T CARE 



EXIT : Z - NO BLOCKS AVAILABLE (MEMORY LOCKED) 
ALL REGISTERS DESTROYED 
NZ - BLOCK ALLOCATED 

B,A = H,L * ADDRESS OF CHARACTER 

PRECEDING NEXT BLOCK LINK IN BLOCK 















'pRECE 













C^,D,E D 


05BF 




GBLKF 


EQU 


$ 


05BF 


CDBB14 






CALL 


FC200 


05C2 


3EC3 






MVI 


A„FILL 


05C4 




GTBLK 


EQU 


S 


05C4 


328FFF 






STA 


FLCHR 


05C7 


2AACFF 






LHLD 


FBLKS 


05CA 


EB 






XCH6 




05CB 


7B 






MOV 


A,E 


05CC 


67 






ORA 


A 


05CD 


CC8E06 






CZ 


PTBLK 


O5D0 


CA0E06 






JZ 


6L220 


05D3 


E6F0 






ANI 


377Q-BLK 


05D5 


6F 






MOV 


L,A 


05D6 


62 






MOV 


H # D 


05D7 


7E 






MOV 


A,M 


05D8 


4F 






MOV 


C,A 


05D9 


2F 






CMA 




05DA 


E60F 






ANI 


BLKSM 


05DC 


CAED05 






JZ 


GL100 









******************* 









RELEASE LAST BLOCK 









******************* 


05DF 


13 






INX 


D 


05E0 


13 






INX 


D 


05E1 


6B 






MOV 


L,E 


05E2 


CD6A17 






CALL 


CHAIN 


05E5 


22ACFF 






SHLD 


FBLKS 


05E8 


42 






MOV 


B,D 


05E9 


7B 






MOV 


A,E 


05EA 


C3FB05 






JMP 


GL200 



;GET BLOCK FOR SINGLE CHAR I 
;SET FILL CHARACTER TO FILL 



;SAVE FILL CHARACTER 
;6ET POINTER TO FIRST 

;FREE BLOCK IN D,E 
;PUT LSB OF LINK IN A-RE6 
;ANY BLOCKS AVAILABLE? 
;N0 - RELEASE BLOCKS 

;AND FORCE MEMORY LOCK ON 
SM ; COMPUTE ADDRESS OF 
;NEXT BLOCK LINK 

;GET LSB OF NEXT BLOCK LINK 
;SAVE LSB IN C-REGISTER 
;END OF LINE LINK (LOWER 

;FOUR BITS # ALL ONES)? 
;N0 - RELEASE NEXT BLOCK 
********** 

OF LINE * 
********** 

;SET H,L TO LSB PART OF PREV 
;LINE LINK 

;6ET PREV LINE ADDR IN H,L 
;SET AS NEW FREE BLOCKS HEAD 
;PUT CURRENT BLOCK ADDRESS 

;IN B,A 
;FILL BLOCK WITH FILL CHARS 



05ED 




05ED 


23 


05EE 


46 


05EF 


2B 



• ***************************** 

; RELEASE NEXT BLOCK OF LINE * 
^ ********** ******************* 

GL100 



EOU 
INX 
MOV 
DCX 



H 

B,M 

H 



;6ET MSB OF NEXT BLOCK LINK 

;RESTORE H,L TO ADDRESS OF 
OF LS8 PART IN FIRST BLOCK 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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20 
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20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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20 
20 
20 
20 
20 
20 
20 
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20 
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05 FO 


79 


05F1 


E6F0 


05 F3 


4F 


05F4 


OA 


05F5 


77 


05F6 


03 


05 F7 


23 


05F8 


OA 


05 F9 


77 


Q5FA 


79 



05 FB 
05FB 
05FD 
05FE 

05 FF 
0601 
0604 
0604 
0605 
0606 
0607 
060A 

06 OB 
060C 
060D 
06 OE 
060E 
06 OF 



0612 
0612 
0614 
0617 
061A 
061D 
061 E 



MOV 

ANI 

MOV 

LDAX 

MOV 

INX 

INX 

LDAX 

MOV 

MOV 

; ********** 

FILL BLOC 
********** 

B^A = AN 
; FILCHR = 



A,C ;CGMPOTE 

377Q-BLKSM ;BL0CK 

C,A 

B ;TRANSFER 

M^A ; SECOND 

B ;LINK I 

H 

B 

M,A 

A,C ;SET A-RE 
******************** 
K WITH SPECIFIED F IL 
******************** 



ADDRESS 
LINK IN 



OF NEXT 
SECOND BLOC 



NEXT BLOCK LINK OF 
BLOCK TO NEXT BLOC 
N FIRST BLOCK 



GISTER FOR "BLNKFL 
************* 
L CHARACTER * 
************* 



Y ADDRESS IN BLOCK 
CHARACTER TO FILL BLOCK WITH 



6L200 



F60F 

6F 

60 

OEOD 

3A8FFF 

77 

2B 

OD 

C20406 

77 

7D 

B7 

C9 

AF 
C3630B 



6L210 



GL220 



EQU 
ORI 
MOV 
MOV 
MVI 
LDA 
EQU 
MOV 
DCX 
DCR 
JNZ 
MOV 
MOV 
ORA 
RET 
EQU 
XRA 
JMP 



$ 

BLKSM 

L,A 

H,B 

C,BLKSZ 

FLCHR 

$ 

M, A 

H 

C 

GL210 

M,A 

A,L 

A 

$ 
A 
MLOCK 



SET 



H,L 



TO ADDRESS OF LAST 



DISPLAY CHARACTER P0SIT10 



-3 



;IN 
;SET 
;6ET 



BLOCK 
FILL COUNT 
THE FILL CHARACTER 



;STORE THE FILL CHARACTER 
;MOVE TO NEXT BYTE 
;BLOCK FILL COMPLETED? 
;N0 - CONTINUE FILLING 
;YES - WRITE LAST PAD 
;SET B,A TO EXIT ADDRESS 
;SET NZ 
•RETURN 



***************************** 

; 6TNWLN - START A NEW LINE * 
***************************** 



ENTRY: LLINE 



ADDRESS OF PREVIOUS LINE 



# 

r 
r 
t 
t 
* 



EXIT : NZ - NO BLOCKS AVAILABLE (MEMORY LOCK) 
ALL REGISTERS DESTROYED 
Z - LINE ALLOCATED 

H^L = ADDR OF FIRST CHAR IN NEW LINE 
LLINE = ADDR OF LSB PART OF NEXT LINE 

POINTER IN THE NEW LINE 
A-E DESTROYED 



NEW LINE IS 
LINE EXISTS 



LINKED 
(I.E., 



TO PREVIOUS LINE 
LSB OF PREV LINE 



IF PREVIOUS 
ADDR H 0) 



r 
GNWLN 



3EC0 

32C5FF 

CDBF05 

CA590B 

EB 

2AA1FF 



EQU 

MVI 

STA 

CALL 

JZ 

XCHG 

LHLD 



A # STPR 
LTFMT 
6BLKF 
NEXIT 

LLINE 



;SET LAST FORMAT CONTROL COD 

;T0 START PROTECT 
;GET A BLOCK FROM FREE LIST 
;RETURN NZ IF NO BLOCKS 
;D,E = NEW BLOCK ADDRESS 
;GET ADDRESS OF PREVIOUS 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



2U 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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0621 


EB 


0622 


F60F 


0624 


D602 


0626 


2B 


0627 


70 


0628 


2D 


0629 


77 


062A 


C602 


062C 


6F 


062D 


72 


062E 


2B 


062 F 


73 


0630 


2B 


0631 


36CE 


0633 


2B 


0634 


AF 


0635 


77 


0636 


22A1FF 


0639 


2B 


063A 


CB9C0D 



063D 


B3 


063E 


C8 


063F 


EB 


0640 


73 


0641 


23 


0642 


72 


0643 


EB 


0644 


BF 


064 5 


C9 



ERRORS = PAGE 37 



;L1NE IN D,E 
^COMPUTE ADDRESS OF LSB PART 

;0F NEXT LINE LINK 
;STORE ADDRESS INTO NEXT 

; BLOCK LINK 

;CUSE DCR TO AVOID CARRY) 

;SET ADDRESS TO MSB PART OF 

;PREVIOUS LINE LINK 
;SET PREVIOUS LINE LINK TO 

;POINT TO OLD LINE 



;SET NEXT LINE LINK TO "EOP" 

;SET TERMINATOR (LSB = 0> 

;STORE NEW LAST LINE ADDRESS 

;SET FIRST DISPLAY CHARACTER 

******************************************* 

LINK NEW LINE BACK TO PREVIOUS LAST LINE * 

******************************************* 

(LSB#0) 

TO 



XCHG 




ORI 


BLKSM 


SUI 


2 


DCX 


H 


MOV 


m,b 


DCR 


L 


MOV 


M,A 


ADI 


2 


MOV 


L,A 


MOV 


M,D 


DCX 


H 


MOV 


M„E 


DCX 


H 


MVI 


M,EOP 


DCX 


H 


XRA 


A 


MOV 


M,A 


SHLD 


LLINE 


DCX 


H 


CALL 


SCHR1 



ORA 


E 


;PREVIOUS LINE EXIST 


RZ 




;N0 - RETURN 


XCHG 




;YES - LINK NEW LINE 


MOV 


M # E 


;PREVIOUS LINE 


INX 


H 




MOV 


M # D 




XCHG 




;RESTORE H,L 


CMP 


A 


;SET 2 TRUE 


RET 




;RETURN 



; ***************************************** 
; INITDS - SET UP INITIAL DISPLAY VALUES * 
;***************************************** 



EXIT : H,L * ADDRESS OF THE LSB PART OF THE 
NEXT LINE POINTER IN THE INITIAL 
DISPLAY BLOCK 
A DESTROYED 

THIS ROUTINE ALLOCATES THE INITIAL LINE OF 
THE DISPLAY AND INITIALIZES THE DISPLAY 
PARAMETERS: 

DISPST,CURADR = ADDRESS OF THE FIRST DISPLAY 
CHARACTER IN THE INITIAL DISPLAY BLOCK 

LSTLIN,FLINE,TOPLIN * ADDRESS OF THE LSB 
PART OF THE NEXT LINE POINTER IN THE 
INITIAL DISPLAY BLOCK 



RHTM6N = MAX COL (= 79) 



0646 


CD1206 


0649 


22FEFF 


064C 


22C3FF 



IITDS 



ECU 
CALL 

SHLD 
SHLD 



GNWLN ;GEI INITIAL DISPLAY BLOCK 
DSPST ;SET THE DISPLAY POINTER 
CRADR ;AND THE CURRENT CHAR ADDR 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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064 F 


23 


0650 


22C9FF 


0653 


229FFF 


0656 


22CBFF 


0659 


3E4F 


065B 


32BEFF 


065E 


C9 



065 F 
065F 
0662 
0664 
0667 



066A 
066A 
066D 
0670 
0673 
0675 
0677 



067A 
067B 
067E 
067F 
0682 
0684 



0685 
0685 
0688 
068B 



3AFBFF 
E601 
CCBCOF 
CA8506 



CDS917 

C28 506 

3AF3FF 

E60A 

EE08 

C28506 



79 

CD0817 

D8 

3AFCFF 

E680 

CO 



C07317 
C22D04 
C3C403 



I NX 


H 


SHLD 


LTLIN 


SHLD 


FLINE 


SHLD 


TPLIN 


MVI 


A,MXC0L 


STA 


RTMGN 


RET 





;SET THE CURRENT LINE 
;PARAMETERS 

INITIALIZE THE RIGHT MARGIN 

;T0 THE LAST COLUMN 
rRETURN 



;************************************ 

; LOCLIN - PROCESS LOCAL DATA ENTRY * 
-************************************ 



ENTRY: C = INPUT CHARACTER 

tCHARIN) « KEYBOARD INPUT CODE 

EXIT : ALL REGISTERS DESTROYED 



; THIS ROUTINE PROCESSES INPUT CHARACTERS FRO* 

; KEYBOARD. THE ROUTINE DETERMINES WHETHER OR 

; NOT THE CHARACTER SHOULD BE TRANSMITTED OR 

; PROCESSED LOCALLY 

r LOCLIO - PROCESS FUNCTIONAL KEY INPUT 



LCLIO EQU S 
LDA KJ 
ANI CN 
CZ CD 
JZ LI 

; ************* 

; TRANSMIT COD 
- ************* 



MPR ;GET KEYBOARD JUMPERS A-H 
DIS ;DISPLAY ALL FUNCTIONS OR 
SPF ;DISPLAY FUNCTIONS ENABLED 
050 ;N0 - PROCESS LOCALLY ONLY 
******************************* 

E IF IN REMOTE CHARACTER MODE * 
******************************* 



LCLIN 



EQU 
CALL 

JNZ 
LDA 
ANI 
XRI 
JNZ 



$ 

CK 

LI 

MF 

RWOTE+BKMDE 

RM 

LI 



SFK 
050 
LG2 



(OTE 
050 



;SOFT KEY DEFINE MODE? 

;YES - PROCESS LOCALLY ONLY 

;N0 - GET HARD MODE FLAGS 

E 

;REM0TE AND NOT BLOCK MODE? 

;N0 - PROCESS LOCALLY ONLY 



MOV 
CALL 
RC 
LDA 

ANI 
RN2 



A,C 
XUTDC 

KDCSW 

FLDUP 



;YES - RECALL THE INPUT 

;OUTPUT THE CHARACTER 

; (RETURN IF OUTPUT ERROR! 

;GET THE DATA COMM SWITCHES 

;FULL DUPLEX? 

;YES - RETURN 
; NO - PROCESS INPUT 

;**************************** 

; PROCESS THE INPUT LOCALLY * 

- *************** ************* 

; INPUT CHARACTER IN C-RE6ISTER 



LOCALLY 



LI050 



EQU $ 
CALL CKFMS 
JNZ CINT1 
JMP CHINT 



;FORMAT/SOFT KEY DEFINE MODE 
;YES - FORCE FULL PROCESSING 
;N0 - 1ST TRY FAST PROCESSIN 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 

FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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20 
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20 
20 
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068E 
068E 
0691 
0692 
0693 
0694 
0695 



0698 
069B 
069E 
069F 
06A2 
06A5 
06A6 
06A7 
06AA 



06B5 
06B8 
06BB 
06BB 
06BC 
06BD 
06BE 
06BF 
06C0 
06C1 



06C9 
06C9 
06CC 



;RELEASE FIRST LINE OF MEMORY 



PTBLK 



2ACBFF 

23 

23 

?E 

B7 

C2AB06 



EQU $ 
LHLD TP 
INX 



INX 
MOV 
ORA 
JNZ 



H 
H 

A 
PB 



LIN 



« 



;6ET TOP 
;LINE ADRESS 



21CQFF 

3A6BFF 

BE 

C45B0C 

21C0FF 

46 

05 

FAAB06 

70 



************* 
TOP LINE OF 
OF MEMORY DO 

************* 

LXI B, 

LDA MK 

CMP M 

CNZ RL 

LXI H, 

MOV B, 

DCR B 

JM PB 

MOV M, 



;TOP LINE = FIRST LINE 
220 ;N0 FIRST IS NOT TOP 
************************** 

DISPLAY IS FIRST LINE 
ROLL UP 
************************** 

CRROW 

ROW ; 



LUP 

CRROW 

n 



;ROLL UP DISPLAY 
;DECREMENT CURSOR 



220 ;STORE IF 

B ;ROW # 

************************** 

ADVANVCE FRIST LINE PRINTER 

************************** 



; ************* 



*************! 



06AB 




06AB 


2A9FFF 


06AE 


EB 


06AF 


CDC20F 


06B2 


CAD406 



PB220 EQU $ 
FL 

CE 
PB 

!************* 

; OUTPUT LINE 
; * ***** ******* 



EQU 

LHLD 

XCHG 

CALL 

JZ 



CD3228 
DACD06 

EB 
5E 
23 
56 
13 
EB 
229FFF 



06C4 


23 


06C5 


23 


06C6 


3600 


06 C8 


18 



CDF206 
C9 



CALL PT 

JC PB 

PB225 EQU $ 
XCHG 

MOV E,M 

INX H 

MOV f>,ft 

INX » 
XCHG 

SHLD FL 

; ************* 

; CLEAR PREVIO 
• ************* 

INX H 

INX H 

MVI tt, 

DCX D 

# 

r 

r 

PB300 EQU $ 

CALL PTLIN 
RET 

;X 

r 
t 



INE 

DIT ;EDIT ENABLED 
400 ;N0 
************************** 

************************** 

PLN 

350 ;OUTPUT FAIL RET. 



INTO D-E 



;ADRESS BACK 
;GET ADR. OE 
;NEW FIRST 
;LINE 



;SET TO NEX 
INE ;LINE POINTER 
************************** 

US LINE PTR IN NEW FIRST LINE 
************************** 

; ADVANCE TO 
;PREVIOUS LINE POINT 
;ZERO LSB TO FLAG 

AS TOP LINE 

SET D,E TO LSB OF 

NEXT LINE POINTER 

IN LINE TO BE RELEASED 



;ADD LINE TO FREE LIST 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



8080 MACRO ASSEMBLER, VER 2.4 



06C0 




PB350 


EQU 


06CD 


AF 




XRA 


06CE 


219AFF 




LXI 


06D1 


77 




MOV 


0602 


37 




STC 


06D3 


C9 




RET 






;********** 



06 D4 
06 04 
06D7 
06D8 
060B 
06DE 
060 E 
06E1 
06E4 
06E6 

06E9 
06EB 
06EE 



06 F2 
06F2 
06 F5 
06F8 
06F9 
06FC 
06F0 
06FE 
06FF 
0700 
0701 
0702 
0703 
0704 



ERRORS = PAGE 40 



$ ;I0 OUTPUT FA I 

A ;SET Z-FLA6 

H,NROWS ;SET H TO OATA 

M,A ;PA6E CLEAR NR0WS 



***************************** 

EDIT MODE NOT ENABLED * 

***************************** 

$ 



**********! 



PB400 



21CB0E 
37 

22F1FF 
CD5C19 

C00570 
C2DE06 
FEOD 
C20E06 

3E80 

322780 

C7 



PB410 



EQU 

LXI 

STC 

SHLD 

CALL 

EQU 

CALL 

JNZ 

CPI 

JNZ 

MVI 
STA 
RST 



H,YMS01 

M6PT1 
DPMS6 
$ 

ZETKY 
PB410 
CR 
PB410 

A,CTOFF 

ICRRW 

RESET 



;DISP MESSAGE 

;6ET KEY 
;WAIT FOR KEY 
; IS IT RETURN 
;LOOP 



06EF C3C006 



JMP PB350 

********************************* 

PUTLIN - ADD LINE TO FREE LIST * 
********************************* 



ENTRY: D,E = ADDRESS OF NEXT LINE 
OF LINE TO BE RELEASED 



EXIT : D,E UNCHANGED 
A - E 
Z FALSE 
H,L DESTROYED 
FREE BLOCKS LIST 
RELEASE LINE 



FIELD'S LSB 



UPDATED TO INCLUDE 



PTLIN 



CD3510 

2AACFF 

EB 

22ACFF 

7D 

23 

23 

73 

2C 

72 

EB 

5F 

C9 



EQU $ 
CALL MLKQF 
LKLD FBLKS 
XCHG 
SHLD FBLKS 



MOV 

INX 

INX 

MOV 

INR 

MOV 

XCHG 

MOV 

RET 



A,L 

H 

H 

M,E 

L 

M„D 



; RESET MEMORY LOCKED FLAG 
;GET CURRENT FREE BLOCKS HE A 
;SET H^L TO MSP PART OF NEXT 
;SET FREE BLOCKS POINTER TO 

;RELEASED LINE 
;PUT PREVIOUS FREE BLOCKS 
;HEAD INTO PREVIOUS LINE 
;POINTER OF RELEASED LINE 
;(USE INR TO FORCE NZ> 



;RELEASED LINE 
;SET A = E 
; RETURN 



ADDRESS IN D , 



********************************************* 

RCADRA - LOCATE CURRENT CURSOR POSITION * 

IF POSITION EXIST - DON'T EXTEND DISPLAY * 

********************************************* 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
FILE 
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FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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0705 
0705 
0708 
070A 
0700 
07 OD 
070F 
0712 



0715 
0715 
0716 
0719 
0719 
071 C 
071C 
071F 
0721 
0724 
0727 
0729 
0726 
072 D 



CD991C 

3E01 

3260FF 

3EFF 

3291FF 

C31907 



AF 
32C1FF 

3AC1FF 

219AFF 

36FF 

CD6C07 

219AFF 

3600 

2E91 

3600 

C9 



ENTRY: 



DON*T CARE 



EXIT t SEE **RCABBR* 



RADRA EQU S 

CALL CA 

MVI A r 

STA TM 

RABRB EQU $ 

MVI A # 

STA BK 

JMP RA 

; ************* 

; LOCATE AD BR 
; 00 NOT ADD R 
************** 

RADR1 



DV1 ; CLEAR CURSOR ADVANCE FLAG 
INTRM ;SET TO IGNORE NON-D ISPLAYI N 
FCT ; TERMINATOR 

377Q ;SET "BLKFIL" TO INHIBIT 

FIL ;LINE EXTENSION 

DR2 /LOCATE CURSOR POSITION 

***************************** 

CORRESPONDING TO ROW/COLUMN * 

OWS IF ROy DOES NOT EXIST * 

***************************** 



RADR2 



RADR3 



EQU 

XRA 

STA 

EQU 

LDA 

EQU 

LXI 

MVI 

CALL 

LXI 

MVI 

MVI 

MVI 

RET 



$ 

A 

CR 

$ 

CR 

$ 

*, 
RA 

W# 
L, 



COL 

COL 

NROWS 

377Q 

DRO 

NROWS 





BKFIL-BASE 


; RETURN 



;SET TO LOCATE COLUMN 
;IN DESIRED ROW 

;GET THE CURRENT COLUMN 

;SET "NROWS" TO INHIBIT 
;BUILDING OF NEW ROWS 
;FINB CHARACTER ADDRESS 
;RESET BUILD INHIBIT FLAGS 
;WITHO0T CHANGING PROCESSO 
; FLAGS 



; ************************************************ 
; RCADR4 - GET ADDRESS OF FIRST CHARACTER AFTER * 
; AFTER PREVIOUS ROW AND COLUMN * 

;************************************************ 



ENTRY: CURROW = CURRENT ROW 

CURCOL = CURRENT COLUMNN 

EXIT : 7 - CHARACTER FOUND 
C = COLUMN NUMBER 
0,E * CHARACTER ADDRESS 
IF FORMAT MODE ENABLED 

B = -1 # CHARACTER PROTECTED 

# ->1 # CHARACTER NOT PROTECTED 
OTHERWISE, B DESTROYED 
A,H,L DESTROYED 
N2 - CHARACTER NOT FOUND 
ALL REGISTERS DESTROYED 



# 

i 

t 

m 

r 
i 

9 



072 E 


RADR4 EQU I 


1 


072E 


3AC1FF 


LDA 


CRCOL 


0731 


3D 


DCR 


A 


0732 


CD1C07 


CALL 


RADR3 


0735 


CO 


RNZ 




0736 


4F 


MOV 


C,A 


0737 


oc 


INR 


C 


0738 


CD8B0B 


CALL 


NTCHR 


073B 


CD7317 


CALL 


CKFKS 


073 E 


47 


MOV 


B,A 



;6ET CURRENT COLUMN NUMBER 
;SET FOR PREVIOUS COLUMN 
;DOES CHARACTER EXIST 
;N0 - RETURN 

;YES - SAVE COLUMN FOUND IN 
; ADVANCE TO NEXT COLUMN 
;GET NEXT CHARACTER 
; FORMAT/SOFT KEY DEFINE MODE 
rCSET B TO INDICATE NOT 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F ILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F ILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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0769 
0769 
076C 
076 C 
076 F 
0772 
0775 
0776 
0777 
07 7A 



07 7D 
077E 
077F 



078 E 
078 E 
0791 
0792 
0793 
0796 
0796 
0797 
0798 



3AC1FF 

328 5FF 

3ACGFF 

2AC7FF 

44 

95 

2AC9FF 

CABF07 



5F 
B7 
F29607 



0782 




0782 


23 


0783 


23 


0784 


CD6A17 


0787 


1C 


0788 


C28207 


078B 


C3B507 



CD6A17 
23 
1D 
CAB507 

7E 
B7 
C28E07 



E « NUMBER OF ROWS NEEDED 
P - ROW LOCATED 

A = COLUMN NUMBER FOUND 

B = ROW NUMBER FOUND 

C = NUMBER OF CHARACTERS NEEDED 
D,E * ADDRESS OF LAST CHARACTER FOUND 
H =" BASEH 



LSTROW r LSTCOL A LSTLlN r CURADR 
TO THE LAST CHARACTER FOUND 



ARE UPDATED 



RADDR 



EQU 
LDA 
RADRO EQU 
STA 
LDA 
LHLD 
MOV 
SUB 
LHLD 
JZ 



$ 

CRCOL 

S 

TPCOL 
CRROW 
LTROW 
B,H 
L 

LTLIN 
RA24Q 
-************************** 

; ROW HAS CHANGED * 

; LOCATE START OF NEW ROW * 

;************************** 

MOV E # A ;SAV£ COUNT 
ORA A ;SET FLAGS 
JP RA140 ;ROW IS AHEAD 

i 

;**************************** 

; ROW IS BEFORE CURRENT ROW * 
; SEARCH BACK * 

; **************************** 

RA120 ESU S 

INX H 

INX H 
CALL CHAIN 

INR E 

JNZ RAT20 

J MP It A 220 

;****************************** 
; ROW IS AHEAD OF CURRENT ROW * 
; SEARCH AHEAD * 

• ****************************** 



;6ET DESIRED COLUMN NUMBER 

;SAVE DESIRED COLUMN NUMBER 
;6ET THE DESIRED ROW NUMBER 
;GET LAST ROW AND COLUMN DON 
;PUT LAST COLUMN IN B-REG 
;MOVED TO A NEW ROW? 

; CGET LAST LINE DONE ADDR) 
;YES - LOCATE COLUMN 



OF THIS ROW 



;SET ADDRESS TO PREVIOUS 
;LINE POINTER 
;GET ADDRESS OF PREVIOUS ROW 
;ROW FOUND? 

;N0 - CONTINUE BACKING UP 
;YES - SET NEW ROW 



RA13G 



RA140 



ESU 

CALL 

INX 

DCR 

JZ 

EQU 

MOV 

ORA 

JNZ 



$ 

CHAIN 

H 

E 

RA220 

$ 

A,M 

A 

RA130 



OF NEXT ROW 
LINE PTR ADDRES 



;GET ADDRESS 

;SET TO NEXT 

;ROW FOUND? 

;YES - LOCATE COLUMN 

;N0 - CHECK FOR ANOTHER 



ROW 



;GET LSB OF NEXT ROW POINTER 
;DOES NEXT ROW EXIST? 
;YES - CHECK FOR ROW FOUND 



079B 
079B 
079E 



CD7317 
C2590B 



; ******************** 

; ROW NOT IN MEMORY * 
; CREATE NEW ROW * 
; ************* ******* 
RA200 EQU $ 

CALL CKFMS 
JNZ NEXIT 



;F0RKAT7S0FT KEY DEFINE MODE 
;YES - DO NOT BUILD ROWS 



FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 
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073F 



0740 
0743 



0767 
0767 
0768 



C8 



CDDA0F 
CA5807 



RZ 



ERRORS = PAGE 42 



PROTECTED IF NOT FORMAT) 
NEXT STATEMENT RETURNS) 
;NO - RETURN 



FORMAT MODE - SEE IF NEXT ASCII CHAR PROTECTED 



0746 


CD1F1B 


0749 


C25807 


074 C 


2AC3FF 


074F 


EB 


075 




0750 


CDBBOB 


0753 


0600 


0755 


C36307 



0758 




0758 


21C2C1 


07 5B 


CD 221 B 


075E 


C25007 


0761 


06 FF 


0763 




0763 


21C1FF 


0766 


4E 



AF 
C9 



CALL CPROT ; PREVIOUS CHA 

JZ RA440 ;YES - SEE IF 

;******************************** 

; LAST CHAR WAS UNPROTECTED * 
; SEE IF NEXT CHAR IS PROTECTED * 
; ******************************** 



R4010 



- ********************************** 

; PROTECT CHAR FOUND 

; SEE IF SUBSEQUENT UNPROTECT CHAR 

;********************************** 



R PROTECTED? 
NEXT CHAR UNPR 



CALL 


FDCHO 


;IS NEXT CHAR 


JNZ 


RA440 


;YES - SEE IF 


LHLD 


CRADR 


;N0 - RECALL 


XCH6 




; ADDRESS AN 


EQU 


$ 




CALL 


NTCHR 


;6ET NEXT DIS 


MVI 


B,0 


;SET B FOR NO 


JMP 


RA460 


;EXIT CHARACT 



RA440 



RA460 



EQU 

LXI 

CALL 

JNZ 

MVI 

EQU 

LXI 

MOV 



$ 



H # ENDPR*256+XGNLY ; IS 
FNDCH ;AN UNPROTE 
R4010 ;YES - RETURN 
B # -1 ;NQ - RETURN 



ACTER PROTECTED 
NEXT IS UNPROT 
CURRENT CHAR 
D PUT INTO D,E 

PLAY CHARACTER 
T PROTECTED 
ER FOUND 

* 

* 
* 

* 

NEXT CHARACTER 
CT OR XMIT ONLY 

UNPROTECTED 
CHAR PROTECTED 



H,CRCOL 
C,M 



;RECALL CURSOR COLUMN 



ZRETRN - RETURN WITH Z-FLA6 TRUE 



ZETRN 



EQU 
XRA 
RET 



;SET ZERO FLAG 
;RETURN 



;************************************************* 
; RCADDR - DETERMINE LOCATION OF ASCII CHARACTER * 
; AT SPECIFIED ROW AND COLUMN OF DISPLAY LIST * 
************************************************** 



ENTRY 





i 
# 

r 
r 
r 
* 
r 
r 
i 
* 



CURROW,CURCOL = DESIRED ROW/COLUMN 
LSTROW^LSTCOL = LAST RQWACOLUMN DONE 
CURADR = ADDRESS CORRESPONDING TO 

LSTROW, LSTCOL 
LSTLIN = ADDRESS 

TO LSTROW 
NROWS = 0, BUILD 
# Q, DON»T 



OF LINE CORRESPONDING 

NEW ROWS AS NEEDED 
BUILD NEW ROWS 



EXIT 



BLKFIL = Q, EXTEND LINE AS NEEDED 
U Q, DON'T EXTEND LINE 

Z - CHARACTER FOUND 

A,B,C,L DESTROYED 
NZ - CHARACTER NOT FOUND 

M - ROWS NOT BUILT 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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2U 
20 
20 
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20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



8080 MACRO ASSEMBLER, VER 2.4 



07A1 
07A4 
07A5 
07A6 



07A7 
07A7 
07AA 
07AB 
07AE 
07AF 



07B2 
07B5 
07B5 
07B8 
07BB 
07BC 



07BF 
07BF 
07C2 
07C3 
07c4 



07CA 
07CA 

07ce 

07CF 



07D2 
07D2 
07D3 
07D6 
0707 
07D8 
07 DB 
07DC 
Q7DC 



219AFF 
B6 
CO 
73 



CD1206 

CO 

219AFF 

35 

C2A707 



2AA1FF 

CDF40A 
3A85FF 
4F 
C3CA07 



3A85FF 
4F 
90 
F2D207 



07C7 CDF70A 



3E01 

326DFF 

C30C07 



4F 

2AC3FF 

EB 

04 

C2DD07 

OD 

1B 



LXI 

OR A 
RNZ 
MOV 



ERRORS = PAGE 44 



H # NROWS ;N0 - GET BUILD FLAG 
M ;INHIBIT ROW BUILD? 

;YES - RETURN (A = 377B) 
M,E ;N0 - STORE # OF ROWS NEEDED 



; **** 

; GET 
;**** 

RA210 



********* ***************** 

NEW ROW AND LINK TO OLD * 
************************** 



E«U 

CALL 

RNZ 

LXI 

DCR 

JNZ 



$ 

GN WLN 



H # NROWS 

M 

RA210 



;ADD A LINE TO T 
;RETURN FAIL IF 
;DECRERENT # OF 
;ALL NEEDED ROWS 
;N0 - GET ANOTHE 



• ** ** 

; ALL 
;**** 

RA220 



; CUR 
; CHE 

;**** 

RA240 



******************************** 

REQUIRED ROWS HAVE BEEN ADDED * 
******************************** 

LHLD LLINE ;6ET START ADDRE 

E8U $ ;UPDATE LOCATE C 

CALL LTLUP ;SET "LSTLIN" TO 

LDA TPCOL ;RECALL COLUMN T 

MOV C # A ;PUT COLUMN NUMB 

JMP RA245 ;G0 LOCATE THE C 

************************ 
RENT ROW = DESIRED ROW * 
CK COLUMN * 

************************ 



HE DISPLAY 
MEMORY LOCKE 
ROWS NEEDED 
ALLOCATED? 
R ROW 



SS OF ROW 
OLUMN 

NEW ROW 
BE FOUND 
ER INTO C-RE 
OLUMN 



EQU 
LDA 
MOV 
SUB 
JP 



$ 

TPCOL 
C,A 
B 
RA250 



;GET 



THE DESIRED COLUMN 

IT INTO THE C-RE6ISTER 

;COLUMN WANTED >= LAST DONE? 

;YES - SCAN FORWARD 



;PUT 



;**** 

; DES 
; STA 



RA245 



• **** 
; DES 
; STA 
; **** 

RA250 



************************************** 
I RED COLUMN LESS THAN CURRENT COLUMN * 
RT SEARCH AT BEGINNING OF ROW * 

************************************** 

CALL LTLUt ;SET LINE START PARAMETERS 

(PUTS H^L INTO D,€> 
EQU S 

MVI A # INTRM ;SET FUNCTION FLAG TO IGNORE 
STA TMFCT ;N0N-DISPLAYIN6 TERMINATOR 

JMP RA255 ;G0 LOCATE COLUMN 

*************************************** 

IRED COLUMN AT OR PAST CURRENT COLUMN * 
RT SEARCH AT CURRENT COLUMN * 

*************************************** 

EQU $ 

C,A ;SAVE tt OF COLUMNS TO ADVANC 

CRADR ;GET ADDR OF LAST CHAR DONE 



RA255 



. ****! 



MOV 

LHLD 

XCHG 

INR B 

JNZ 

DCR 

EQU 

DCX 



RA2 60 
C 

$ 
D 



;DOES LSTCOL - -1? 

;N0 

;D£CREMENT COLUMN COUNT 

;SET TO NEXT DISPLAY BYTE 



!************************ 

; ROW HAS BEEN FOUND * 

; SEARCH FOR DESIRED COLUMN * 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
FILE 
FILE 
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FILE 
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07 DO 
07 BO 
07E0 
07E3 
07E5 
07 E8 
07EB 
07EC 
07EF 
07 FO 
07F3 
07F4 
07F7 
07F8 
07F8 
07FC 
07 FC 
07 FD 
07FE 
0801 
0803 
0804 



0805 
0805 
0808 
080B 
080C 
080D 
080F 
0811 
0813 
0815 
0818 
0819 
081 A 
081D 
081E 
0820 
0823 
0823 
0825 
0826 
0827 
082A 
08 2B 
082B 
0820 
082E 
0831 
0833 
0834 



21FEFF 

C0511B 

3E00 

326DFF 

CCC109 

EB 

22C3FF 

EB 

21C0FF 

46 

3A85FF 

00 

FAFC07 

91 

68 

67 

22C7FF 

26FF 

OC 

C9 



C06591 

3AF5FF 

05 

E5 

E6F0 

0370 

F602 

0370 

2100FF 

7E 

30 

FA2308 

77 

3E06 

CC0870 

2E50 

7E 

30 

FA2B08 

77 

2E52 

35 

C23F08 

3620 

23 

7E 



; ********** 

RA260 EQU 
LXI 
CALL 
MVI 
STA 
CZ 

XCHG 
SHLD 
XCHG 
LXI 
MOV 
LDA 
OCR 
JM 
SUB 

RA270 EQU 
MOV 
MOV 
SHLO 
MVI 
INR 
RET 



****************** 
$ 

H,DSPST 

FOCHR 

A,DLTRM 

TMFCT 

ELMVO 



;SET FOR NO CHARACTER MATCH 
;0OES CHARACTER EXIST? 
;SET FUNCTION FLAG TO DELETE 
;N0N-DISPLAYIN6 TERMINATOR 
;N0 - TRY TO MOVE EOL 
;SET NEW CURRENT CHAR ADORES 



CRAOR 

H,CRROW 

B,M 

TPCOL 
C 

RA270 
C 
$ 

L,B 

H,A 

LTROW 

H,8ASEH 
C 



;GET DESIRED ROy ANO COLUMN 
;CONVERT TO COLUMN FOUND 



;UPOATE LAST ROW AND COLUMN 
;0ONE 

;SET H TO DATA PAGE 
;RESTORE ZERO FLAG 
;RETURN 



; ***************************** 

; TIMER INTERRUPT PROCESSING * 
; ***************************** 



ENTRY: 



-PSW" AND 
A = INTER 



B,C PUSHED 
RUPT CODE 



TINTR EQU 
CALL 
LDA 
PUSH 
PUSH 
ANI 
OUT 
OR I 
OUT 
LXI 
MOV 
OCR 
JM 
MOV 
MVI 
CZ 

tlOtO EQU 
MVI 
MOV 
OCR 
JM 
MOV 

TI020 EQU 
MVI 
OCR 
JNZ 
MVI 
INX 
MOV 



$ 



ITVEC 

PCCTL 



H 

377Q-TMI 

POX Sit 

TMIEN 

POCSR 

H„RTTMR 

A,M 

A 

TIQ10 

A,EDTST 

ZBCTL 

$ 

L # TSTAL- 

A,M 

A 

TIQ20 

M, A 

* 

L^CBLTM-I 

M 

TI100 

M,CBDLY 

H 

A # M 



;TRY ALTERNATE INTERRUPT 
;GET PROCESSOR STATE 
;SAVE REMAINING REGISTERS 

EN 

ACKNOWLEDGE TIMER INTERRUPT 

; RE-ENABLE THE TIMER 
DECREMENT SOFT RESET DELAY 

;TIMER 
^COUNTING DOWN? 
;N0 - DON*T UPDATE TIMER 
;YES - STORE NEW VALUE 

;<SET FOR RESET LED'S) 
;RESET LEO'S IF TIME DONE 

BASE ;OECREMENT TAPE STALLED 
; COUNTER 
;STALL LIMIT REACHED? 
;YES - DON'T UPDATE COUNTER 
;N0 - STORE NEW VALUE 

BASE ;DECREMENT BLINK TIMER 
;TIME OUT? 
;N0 - EXIT 
;YES - RESET TIMER 

;GET CTU BLINK MASK 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
FILE 
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0835 
0837 
0838 
0839 
083C 



083F 
083F 
0842 
0844 
0845 
0848 
0849 
084C 
084D 



0850 
0853 
0854 
0854 
0855 
0856 
0857 
0858 
08 59 



2E55 

AE 

77 

320B80 

C33F08 



MVI 

XRA M 

MOV K,A 

STA ICTCO 

JMP TI100 
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L,CMND-BASE 

;T0G6LE BLINKING LIGHTS 
;UPDATE LIGHT STATE 
;S£T CTU LIGHTS 



r 

t 
;***** 

; PERF 
; ROUT 

; ***** 

TI100 



21F6FF 

3E04 

BE 

CA5408 

77 

C0OB70 

F3 

CD0E78 



21F6FF 
35 

E1 
D1 
C1 
F1 
FB 
C9 



******** 
ORM KEYS 
INES 
******** 

EdU s 

LXI 

MVI 

CMP 

JZ 

MOV 



**************************** 
OARD AND DATA COMM MONITOR * 

* 
**************************** 



H, 
A, 
M 
TI 



CALL 2B 
DI 
CALL ZC 



ITFLG 
TRINT+1 

110 

A 

MON 

MON 



TI110 



LXI 

DCR 

EQU 

POP 

POP 

POP 

POP 

EI 

RET 



H, ITFLG 

M 
$ 
H 
D 
B 

psw 



;6ET INTERRUPT FLAG 

;TIMER INTERRUPT ALREADY 
;IN PROGRESS? 
;YES - DON'T DO MONITOR CALL 
;N0 - SET IN-PROGRESS FLAG 

;*************************** 

;* KEYBOARD MONITOR ROUTINE 
* RE-ENABLES INTERRUPTS * 
**************************** 

;SET INTERUPT CODE TO 

;1NDICATE TIMER INTERRUPT 

;RESTORE CONTENTS OF 
;ALL REGISTERS AND 
;ALL CONDITION FLAGS 

;RE-ENABLE INTERRUPTS 

; RETURN TO NORMAL PROCESSING 



;***************************************** 

; BINOCT - CONVERT BINARY TO OCTAL ASCII * 
;***************************************** 



ENTRY: A = DIGIT TO BE CONVERTED 

H,L = ADDRESS OF OUTPUT BUFFER'S 
HIGH ORDER BYTE 

EXIT : H,L = H,L(ENTRY)+4 
A-C DESTROYED 



FIRST BYTE IS SET 
BYTES CONTAIN THE 
THE INPUT VALUE. 
ZERO (NULL). 



08 5A 




BNOCT 


EQU 


$ 


08 5 A 


3620 




MVI 


M,ABLNK 


085C 


23 




INX 


H 


08 5 D 


0603 




MVI 


B,3 


085 F 


07 




RLC 




0860 


07 




RLC 




0861 


4F 




MOV 


C„A 


0862 


E603 




ANI 


3Q 


0864 




B0010 


EQU 


$ 


0864 


E607 




ANI 


7Q 


0866 


F630 




ORI 


ZERO 


0868 


77 




MOV 


M,A 



TO BLANK. THE NEXT THREE 
ASCII OCTAL EQUIVALENT OF 
THE FIFTH BYTE IS SET TO 



;SET FIRST BYTE TO BLANK 

;SET B TO NUMBER OF DIGITS 
;ROTATE DOWN TWO HIGH ORDER 

;BITS 
;SAVE VALUE IN C -REGISTER 
;MASK OUT TWO HIGH ORDER BIT 

;MASK OUT NEXT THREE BITS 
;ADD IN ASCII ADJUSTMENT 
; STORE ASCII CHARACTER 
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0869 


23 


086A 


79 


086B 


07 


086C 


07 


0860 


07 


086 E 


4F 


086F 


05 


0870 


C26408 


0873 


70 


0874 


C9 



0875 
0875 
0878 
08 7B 
08 7B 
087E 
087E 
087F 
0881 
0883 



INX 


H 


MOV 


A, C 


RLC 




RLC 




RLC 




MOV 


C,A 


DCR 


B 


JNZ 


B0010 


MOV 


M,B 


RET 
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; INCREMENT TO NEXT BYTE 

;RECALL INPUT 

;ROTATE TO NEXT THREE BITS 



;SAVE VALUE 
;ALL BITS DONE? 
;N0 - SET NEXT BYTE 
;YES - STORE NULL IN 
;RETURN 



BUFFER 



BYTE TO 



*********************************** 

* 
* 

*********************************** 



BN2DE0 - CONVERT SINGLE 
ASCII DECIMAL 



r 
» 
# 
r 
r 
r 



ENTRY: A = BYTE TO BE CONVERTED 

H,L = ADDRESS OF OUTPUT BUFFER'S 
HIGH ORDER ADDRESS 

EXIT : NZ 

H,L = H,L(ENTRY>+3 
A-E DESTROYED 



2296FF 
21C208 

22CEFF 

5F 

1600 
0E01 
C39D08 







* 






i 






t 






r 






* 






r 






i 






e 






i 






t 






i 


0886 




# 

B 


0886 


2296FF 




0889 


21C208 




088C 


22CEFF 




088 F 


0E01 




0891 


21F0D8 




0894 


CDB008 




0897 


2118FC 




089A 


CDB008 





B2DE0 EQU $ 

SHLD LKSAV ;SAVE BUFFER ADDRESS 

LXI H,BD20G ;SET OUTPUT ROUTINE TO BUFFE 

B2DE1 EttU $ ; STORE ROUTINE 

SHLD CTFAD ;SET OUTPUT ROUTINE ADDRESS 

B2DE2 EQU $ ;ENTRY FOR "ASCOUT" 

MOV E,A ;CHANGE INPUT INTO DOUBLE 

RVI D,0 ;BYTE VALUE 

MVI C,1 ;SET ZERO SUPPRESS FLAG 

JMP BD050 ;G0 TO CONVERT ROUTINE 

r 

• ************************************************* 

; BN2DEC - CONVERT DOUBLE WORD BINARY TO DECIMAL * 
- ************************************************* 



ENTRY: D,E = BINARY VALUE 

H,L = ADDRESS OF HIGH ORDER BYTE IN 
BUFFER 

EXIT : H,L = H,LCENTRY>+5 
A-E DESTROYED 
LNKSftV DESTROYED 

THE FIRST FIVE BYTES OF THE BUFFER CONTAIN THE 
ASCII DECIMAL VALUE. THE SIXTH BYTE IS SET TO 
ZERO (NULL). LEADING ZEROES ARE BLANKED 



2DEC EQU $ 

SHLD LKSAV 
LXI H,6D200 
SHLD CTFAD 
MVI C,1 
LXI H, -10000 
CALL BD100 
LXI H,-10Q0 
CALL BD100 



;SAVE BUFFER ADDRESS 

;SET OUTPUT ROUTINE TO BUFFE 

; STORE ROUTINE 
;SET ZERO SUPPRESS FLAG 

;EXTRACT 10,000*5 VALUE 

i EXTRACT 1,000*5 VALUE 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
FILE 
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FILE 
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0890 
0890 
08A0 
08A3 
08A6 
08A9 
08AA 
08AC 
08AD 



08 BO 
08B0 
08B2 
08B3 
08B3 
08B4 
08 B 5 
08B8 
08B9 
08BA 
08BB 
08BC 
08B0 
08BE 
08BF 



08C2 
08C2 
08C4 
08C7 
08C8 
08CB 
08CC 
08C0 
08C0 
08CE 
08CE 
0801 
0802 
0803 



B0050 



219CFF 

COB008 

21F6FF 

CDB008 

7B 

F630 

00 

C3CDFF 



EQU 


S 




LXI 


H,-100 




CALL 


BO 100 


;EXTRACT 100»S VALUE 


LXI 


H # -10 




CALL 


BD100 


;EXTRACT 10'S VALUE 


MOV 


A,E 


^CONVERT UNITS OIGIT TO 


ORI 


ZERO 


;ASCIJ AND STORE IN 


OCR 


C 


;SET C TO FORCE ZERO STORE 


JMP 


EONTF 


;G0 TO OUTPUT ROUTINE 



******************************* 

B20100 - EXTRACT RADIX VALUE * 
******************************* 



r 


r 
i 





i 

r 

t 
i 

BD100 



ENTRY: 



EXIT : 



C = 0, SUPPRESS ZERO 

< 0, DQN»T SUPPRESS ZEROES 
D,E = VALUE TO BE CONVERTED 
H,L = -RAOIX 
LNKSAV = CURRENT BUFFER ADDRESS 

C < 0, CHARACTER STORED 

= O r ZERO SUPPRESSED 
(LNKSAV) = (LNKSAV>+t 
A-C, H,L DESTROYED 



062F 
EB 

04 

19 

DAB308 

70 

93 

5F 

7C 

9A 

57 

78 

C3C0FF 



EQU 
MVI 
XCHG 
BD110 EQU 
INR 
DAO 
JC 
MOV 
SUB 
MOV 
MOV 
SBB 
MOV 
MOV 
JMP 
************* 

B20200 - STO 
************* 



$ 
B,ZER0-1 



$ 

B 

D 

BO 

A, 

E 

E, 

A, 

D 

D # 

A, 
EO 



110 
L 

A 

H 



;SET INITIAL ASCII VALUE 
;EXCHANGE RADIX AND INPUT 

;INCREMENT ASCII VALUE 
;SUBTRACT RADIX 
;CONTINUE IF INPUT>RADIX 
;ADD BACK RADIX TO EXTRACT 

;REMAINDER 
;SAVE REMAINDER IN D„E 



A 

B ;GET CONVERTED VALUE 

NTF ;60 TO OUTPUT ROUTINE 

*********************************** 

RE DECIMAL VALUE FOR INTERNAL USE * 
*********************************** 



ENTRY: A = CONVERTED VALUE 



BD200 



FE30 

C2CD08 

00 

FACE08 

OC 

C9 

00 

2A96FF 
77 

23 
3600 



BD210 



BD220 



EQU 

CPI 

JNZ 

OCR 

JM 

INR 

RET 

EQU 

OCR 

EQU 

LHLD 

MOV 

INX 

MVI 



$ 

ZERO 

BO 210 

C 

B0220 

C 

$ 

c 

$ 

LKSAV 

M,A 

H 
M,0 



;CONVERTED VALUE = ZERO? 
;N0 - STORE THE DIGIT 
;NON-ZERO CHAR ALREADY DONE? 
;YES - STORE THE DIGIT 
;N0 - RESTORE ZERO FLAG 
;AND EXIT 

;CLEAR ZERO SUPPRESS FLAG 

;6ET BUFFER POINTER 
;STORE CONVERTED VALUE 
; INCREMENT BUFFER POINTER 
;SET NEXT BYTE TO NULL 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
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08D5 
08B8 



2296FF 
C9 



SHLO LKSAV 
RET 



ERRORS = PAGE 49 



; STORE NEW POINTER VALUE 
;RETURN 



***** 

CALC 



ENTRY: 

<H,L> = 
TO BE C 



WE A 
256 



EXIT: 



08D9 




C 


08D9 


05 




Q8DA 


E5 




08 OB 


AF 




08DC 




C 


08DC 


86 




08DD 


CEOO 




080 F 


2C 




08E0 


C20C08 




08 E3 


24 


* 


08E4 


15 




08 E 5 


C20C08 




08E8 


03 


* 


08E9 


57 




08EA 


Et 




08EB 


7C 




08EC 


FEFO 




08EE 


C2F208 




08F1 


4D 




08F2 




t 
C 


08 F2 


7A 




08F5 


01 




08 F4 


C9 





***** 
KSUM 



U100 



**************************** 
ULATE CHECKSUM * 

* 
* 
ADDRESS OF AREA * 
HECKSUMED * 

* 

= NO. BYTES IN AREA/256 * 

SSUME THE AREA BEGINS ON A * 

8VTE BOUNDARY, I.E., L=0. * 

CALL CHKSUM * 

* 
CKSUM * 

ER REGS. UNCHANGED * 
ESTROYEO * 

******************** 

;SAVE REGISTER D-H 

;ZERO SUM 



A = CHE 
ALL OTH 
FLAGS D 
******** 
EQU $ 
PUSH 
PUSH H 
XRA A 
EQU 
AOO 
ACI 
INR 
JNZ 



$ 
M 

L 
CU 



100 



INR H 
OCR 
JNZ CU100 



;ADD BYTE 

;ADD CARRY 

;BUMP ADDRESS POINTER 

;ADD NEXT BYTE 

;FINISHED A 256 BYTE BLOCK 

;D0 NEXT 256 BYTES 



U110 



INX 
MOV 
POP 
MOV 
CPI 
JNZ 
MOV 

EQU 
MOV 
POP 
RET 



B 

0,A 

H 

A,H 

170000Q/256 



CU110 
C,L 

$ 

A,D 

D 



^INCREMENT TO NEXT STORE ADD 
;SAVE CHECKSUM IN D-REGISTER 
;RECALL STARTING ADDRESS 

;LAST RAM BLOCK? 
;N0 - EXIT 
;YES - SET B,C 



CHECKSUM 



TO FIRST 
STORE ADDRESS 



;PUT CHECKSUM BACK INTO A-R E 
;RESTORE D,E 
; RETURN 



08F5 




* 
C 


08 F5 


CD5115 




08F8 


3E04 




08FA 


CD7513 




08 FD 


3E80 




08FF 


322780 




0902 


C7 


r 





******************************************** 

CLEAR - RESET TERMINAL BY ESCAPE SEQUENCE * 
******************************************** 



LEAR 



EQU 

CALL 

MVI 

CALL 

MVI 

STA 

RST 



$ 

IBSYC 

A,FCRST 

SCMFL 

A,CTOFF 

ICRRW 

RESET 



;WAIT UNTIL TAPES NOT BUSY 
;SET FLAG TO FORCE FULL 

; TERMINAL RESET 
;TURN OFF THE DISPLAY 

;G0 DO TERMINAL RESET 



********************************************** 

DISPL1 - ADD ENOUGH BLOCKS TO REACH DESIRED * 

COLUMN * 
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FILE 
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FILE 
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20 

20 

20 
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20 
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0903 




0903 


OC 


0904 


CDC909 


0907 


OD 


0908 


FAA209 


09 OB 


219BFF 


090E 


71 


090 F 




090F 


EB 


0910 


2294FF 


0913 


00 


0914 


FAB209 


0917 


3E20 


0919 


C0C405 


091 C 


C8 


091D 


EB 


091E 


F60F 


0920 


4F 


0921 


C5 


0922 


3A9BFF 


0925 


0600 


0927 




0927 


04 


0928 


D60E 


092A 


F22709 


092 D 


3284FF 


0930 


05 


0931 


CAS 209 



0934 
0937 



2199FF 
70 



0938 


D5 


0939 




0939 


3E20 


093B 


CDC405 


093E 


EB 


093F 


E1 



********************************************** 

ENTRY: C * NUMBER OF CHARACTERS NEEDED - 1 
D,E = LOCATION OF EOL IN LINE 

EXIT : A = Q, NOT ENOUGH BLOCKS CMEMORY LOCK) 
B-L DESTROYED 
A # 0, MEMORY ALLOCATED 

D,E = FIRST CHAR ADDR IN NEW BLOCKS 
B # C,H,L DESTROYED 

IF ONLY ONE CHARACTER IS TO BE ADDED, THE 
CHARACTER IS ADDED TO THE LINE. OTHERWISE, ALL 
REQUIRED BLOCKS ARE ADDED TO THE LINE AND THE 
LINE IS FILLED WITH BLANKS UP TO THE DESIRED 
CHARACTER ONLY. 



DSPL1 



DSPL2 



EQU $ 

INR C 

CALL ELMOV 

OCR C 

DS220 
H,NCHAR 

M,e 

$ 



DS120 



JM 

LXI 

MOV 

EQU 

XCHG 

SHLD 

DCR 

JM 

MVI 

CALL 

RZ 

XCHG 

ORI 

MOV 

PUSH 

LDA 

MVI 

EQU 

INR 

SUI 

JP 

STA 

DCR 

JZ 



;MOVE EOL IF NECESSARY 



;CHARACTER POSITION FOUND 
;SAVE NUMBER OF CHARACTERS 
;T0 BE ADDED - 1 



EL ADR 

C 

DS400 

A^ABLNK 

6TBLK 



BLKSM 

C # A 

B 

NCHAR 
B,0 
S 
B 

BLKSZ-2 
DS120 

COUNT 
B 
DS16Q 



;SAVE EOL A 
; SINGLE C 
;YES - DO 
;N0 - GET 
;FILLED 
; RETURN I 
;PUT BLOC 
; COMPUTE 
;SAVE ADD 

; BLOCK 
;GET # OF 

; INITIALIZE 



DDRESS 
HARACTER ADDED? 

FAST EXTEND 

A DISPLAY BLOCK 

WITH BLANKS 
F MEMORY LOCKED 
K ADDRESS IN D,E 
HIGH ADDR OF BLOCK 
RESS OF FIRST NEW 
ADDED 

CHARS TO BE ADDED 

COUNT 



^INCREMENT COUNT 
;SUB. NO. OF CHARS IN BLOCK 
;JUMP IF MORE BLOCKS NEEDED 
;SAVE LAST CHAR BLOCK POS 
; SINGLE BLOCK? 
;YES 



; *************************** 
; MULTIPLE BLOCKS REQUIRED * 

•A************************** 



H,NBLKS ;SAVE BLOCK COUNT 



LXI 

MOV 
************************ 

GET SUBSEQUENT BLOCKS * 



M,B 



;************************ 



DS140 



PUSH 

EQU 

MVI 

CALL 

XCH6 

POP 



D 

$ 

A # ABLNK 

GTBLK 

H 



SAVE ADDRESS OF LAST BLOCK 
BLOCK FILLED 



;6ET A DISPLAY 
;WITH BLANKS 
;PUT BLOCK ADDRESS 
; RECALL ADDRESS OF 



IN D,E 
LAST BLOC 
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FILE 
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0940 


CAAC09 


0943 


D5 


0944 


2B 


0945 


F60F 


0947 


70 


0948 


2B 


0949 


77 


094A 


2199FF 


094D 


35 


094E 


C23909 


0951 


F1 



JZ DS240 
PUSH D 
DCX H 
OR I BLKSM 
MOV M,B 
DCX H 
MOV M # A 
LXI H,NBLKS 
DCR M 
JNZ DS14Q 
POP PSW 



;EXIT 
;SAVE 



IF MEMORY LOCKED 
NEW LINE ADDRESS 
NEW BLOCK TO PREVIOUS 



;LINK 

; MSB'S 

; STORE LSB 

;ALL BLOCKS ALLOCATED? 
;N0 - GET ANOTHER BLOCK 
;YES - POP THE STACK 



;***************************** 

; ALL BLOCKS HAVE BEEN ADDED * 
***************************** 



0952 


DS160 EQU 


$ 


0952 


3A84FF 


LDA 


COUNT 


0955 


2F 


CM A 




0956 


3C 


INR 


A 


0957 


4F 


MOV 


C,A 


0958 


83 


ADD 


E 


0959 


3D 


DCR 


A 


095A 


6F 


MOV 


L,A 


095B 


62 


MOV 


H,D 


095C 


06CC 


MVI 


B,EOL 


095E 


3AC1FF 


LDA 


CRCOL 


0961 


FE4F 


CPI 


MX COL 


0963 


C26D09 


JNZ 


DS170 


0966 


3A89FF 


LDA 


DCHAR 


0969 


B7 


ORA 


A 


096A 


F26E09 


JP 


DS175 



; COMPUTE NUMBER 
;T0 FILL 



OF BYTES 



096D 




096D 


70 


096E 




096 E 


2B 


096F 


OD 


0970 


06C3 


0972 


C26D09 



0975 




0975 


2AC9FF 


0978 


EB 


0979 


2B 


097A 


72 


097B 


2B 


097C 


13 


097D 


73 



;SAVE IN C 

;GET FIRST FILL ADDR 

;SET FIRST LSB FILL ADDRESS 
;PUT LSB INTO L 
;6ET MSB FROM D 
;SET "EOL" CHARACTER 
;GET CURRENT COLUMN 
;CHAR ADDED TO LAST COLUMN? 
;N0 - SET "EOL" CHARACTER 
;YES - GET CHARACTER STORED 
;IS IT ASCII? 
;YES - DON"T ADD "EOL"' 
; NO - SET "EOL" CHARACTER 

J********************************************** 

; FILL UNUSED PART OF BLOCK WITH "FILL" CODES * 
•A********************************************* 

DS170 EOU $ 

;STORE FILL/EOL CHARACTER 

DS175 

;G0 TO NEXT BYTE 

;ALL UNUSED BYTES FILLED? 

;(SET "FILL" CODE) 
;N0 - SET NEXT BYTE 

; ************************** 

; WRITE LINK TO NEXT LINE * 

; ************************** 

DS180 



MOV 


M,B 


EGU 


$ 


DCX 


H 


DCR 


C 


MVI 


B # FILL 


JNZ 


DS170 



EQU $ 






LHLD LTLIN 


;GET ADDR 


CURRENT LINE 


XCH6 






DCX H 


;STORE AS 


NEXT BLOCK POINTER 


MOV M,D 






DCX H 






INX D 


;POINT TO 


NEXT LINE POINTER 


MOV M,E 







097E 


D1 


097F 


3A9BFF 


0982 


B7 



; *************************** 

; LINK NEW BLOCK(S) TO OLD * 

;*************************** 

POP D ;RECALL FIRST NEW BLOCK ADDR 

LDA NCHAR ;6ET # OF CHARS ADDED - 1 
ORA A ;DOES NEW CHAR REPLACE EOL? 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 
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FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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20 
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20 
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20 
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20 
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0983 
0986 
0989 
098B 
098B 
098C 
098F 
0992 
0994 
0995 
0998 
0999 
099A 
09 9B 
099C 
099D 
09A0 
09A1 



09A2 
09A2 
09A3 
09A6 
09A7 
09AA 
09AB 



09AC 
09AC 
09AE 
09AF 



09B2 
09B2 
09B5 
09B6 
09B7 
09B8 
09BA 
Q9BB 
Q9BD 
09 BE 



3A89FF 
CA8B09 
3E20 

47 

2A94FF 

3AC0FF 

F640 

F3 

322780 

70 

2B 

72 

2B 

73 

CD1D0F 

B4 

C9 



3D 

329BFF 

CO 

3A89FF 

12 

C9 



36CC 

EB 

C37509 



LDA 
JZ 
MVI 
DS210 EQU 
MOV 
LHLD 
LDA 
ORI 
DI 
STA 
MOV 
BCX 
MOV 
DCX 
MOV 
CALL 
OR A 
RET 
; ********** 
; EOL MOVE 
; CHECK FOR 

; ********** 

DS220 EQU 
DCR 
STA 
RNZ 
LDA 
STAX 
RET 

; ALL BLOCK 
; 1NITIALIZ 
• ********** 

DS240 EQU 
MVI 
XCHG 
JMP 



DCHAR 

DS210 

A,ABLNK 

$ 

B,A 

ELADR 

CRROW 

MY EOL 

ICRRW 

M,B 

H 

M,D 

H 

M,E 

DSLN1 

H 



;(DEFAULT TO A 
;YES - OVERWRITE 
;N0 - STORE BLAN 

;SAVE CHARACTER 
;RECALL EOL ADDR 

;SET FOR POSSIBL 
;DISA8L£ INTERRU 
;TURN OFF DISPLA 
;OVERWRITE EOL 

;CHAN6E NEXT BLO 
;POINT TO NEW 



DD 1 CHAR) 

EOL 
K OVER EOL 

TO BE STORED 
ESS 

E EOL SKIP 
PTS 

Y DMA 



CK LINK TO 
BLOCKS 



;TURN DISPLAY BACK ON 

;SET Z-FALSE 

^RETURN 

******************* 

SATISFIED REQUEST * 

SINGLE CHARACTER * 

******************* 

$ 
A ; SINGLE CHARACTE 

NCHAR ;(SET NCHAR) 
;N0 - RETURN 
DCHAR ;YES - GET THE C 
D ; STORE THE CHARA 

;RETURN 
***************** 

S NOT AVAILABLE * 

E END OF LINE * 
***************** 

S 

M,EOL ; STORE AN EOL 

;PUT ADDRESS INTO D,E 

0S180 



R? 



HARACTER 
CTER 



;**************************** 
; SINGLE CHARACTER ADDITION * 

;**************************** 



DS400 



CDBF05 

C8 

54 

5D 

F60F 

6F 

36CC 

E5 

C37509 



EQU 

CALL 

RZ 

MOV 

MOV 

ORI 

MOV 

MVI 

PUSH 

JMP 



$ 
68LKF 

D,H 

E,L 

BLKSM 

L,A 

M,EOL 

H 

DS 180 



;6ET A DISPLAY BLOCK 
;RETURN IF MEMORY LOCKED 
;SAVE BLOCK ADDRESS IN D,E 

;PUT AN EOL AT THE FIRST 
;DISPLAY CHARACTER 
;L0CATI0N IN THE BLOCK 
;SAVE ADDRESS OF BLOCK 
;LINK BLOCK TO DISPLAY 



************************ 

EOLMOV - MOVE EOL IN A BLOCK 

ENTRY: C = NUMBER OF BYTES NEEDED 

D,E = ADDRESS OF EXISTING EOL 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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20 
20 
20 
20 
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20 
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20 
20 
20 
20 
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20 
20 
20 
20 
20 
20 
20 
20 
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09C1 
09C1 
09C4 
09C5 
09 C8 

09C9 
09C9 
09CA 
09CC 
09CE 
09CF 
09D0 
09D1 
0902 

09D5 
09D8 
0909 
090C 
09 OE 
09E1 
09E4 
09E5 
09 E8 



09 EA 
09EA 
09 EB 
09EC 
O9E0 
09F0 
09F1 
09F2 
09 F3 

09F6 
09F6 
09F8 
09F9 
09FA 
09 FO 
09FE 
0A01 
0A02 
0A03 
0A06 



3A91FF 
3C 

C40A0F 
C8 



7B 

E60F 

06 02 

C8 

EB 

B9 

47 

1140CC 

FAEA09 

41 

3AC1FF 

FE4F 

C2EA09 

3A89FF 

B7 

FAEA09 

16C3 



79 

90 

4F 

3AC0FF 

B3 

58 

F3 

322780 



3620 

2B 

05 

C2F609 

72 

C0100F 

AF 

B 1 

C2070A 

23 



EXIT : 
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A = NUMBER OF CHARACTERS ADDED 
C = 0, CHARACTER FOUND 

D,E = ADDRESS OF CHARACTER 
C = NUMBER OF CHARACTERS NEEDED 

0,E = ADDRESS OF LAST BYTE IN BLK 
H = BASEH 
B,L DESTROYED 



EOLMVO - MOVE ONLY IF UNPROTECTED 



ELMVG 



ELMOV 



EQU 
LDA 
INR 
CNZ 
RZ 

EQU 

MOV 

ANI 

SUI 

RZ 

XCH6 

CMP 

MOV 

LXI 

JM 

MOV 

LDA 

CPI 

JNZ 

LDA 

ORA 

JM 

MVI 



$ 

8KFIL 
A 
CPROT 



$ 

A,E 
BLKSM 
2 



C 

B # A 

D # E0L*2 

EM 100 

B # C 

CRCOL 

MX COL 

EM100 

DCHAR 

A 

EM 100 

D,FILL 



;GET BLOCK FILL INHIBIT FLAG 
;BLOCK FILL INHIBITED OR 

^CURSOR IN PROTECTED FIELD 
;YES - RETURN 



; COMPUTE NUMBER OF BYTES 
.'AVAILABLE IN BLOCK 
; (DELETE BYTES FOR LINK) 
;RETURN IF NONE AVAILABLE 
;PUT CURRENT ADDRESS IN H,L 
;EN0«6H CHARACTERS? 

;(SET B TO FILL BLOCK) 
56+MYEOL ;tSET FOR PARTIAL 
LINE EXTENSION) 
;N0 - BLANK REST OF BLOCK 
;YES - BLANK WHAT*S NEEDED 
;6ET CURRENT COLUMN POSITION 
;ADDIMG TO LAST COLUMN? 
;N0 - NEED EOL AT LINE END 
;YES - GET NEW CHARACTER 
;IS IT ASCII? 
;N0 - NEED EOL AT LINE END 
;YES - DON»T NEED EOL 



t 
t 



FILL THE BLOCK 



EM100 



EM110 



EQU 

MOV 

SUB 

MOV 

LDA 

ORA 

MOV 

DI 

STA 

EQU 

MVI 

DCX 

OCR 

JNZ 

MOV 

CALL 

XRA 

ORA 

JNZ 

INX 



$ 

A,C 

B 

C,A 

CRROU 

E 

E # B 

ICRRW 



M„ABLNK 

H 

B 

EM110 

M,D 

DSLN1 

A 

C 

EM130 

H 



;COMPUTE NUMBER OF ADDITIONA 

;BYTES NEEDED 
;SAVE IT IN C FOR RETURN 
;SET CONTROL TO TURN OFF DMA 

;SAVE NUMBER OF BYTES ADDED 
^DISABLE INTERRUPTS 
OFF DMA 



;TURN 



;FILL BLOCK WITH BLANKS 

;MOVE TO NEXT BYTE 

;FILL COMPLETED? 

;N0 - DO NEXT BYTE 

;YES - ADD EOL OR EOL FILL 

;TURN DISPLAY BACK ON 

; CLEAR A-REGISTER 

;ALL CHARACTERS DONE? 

;N0 - RETURN ADDRESS OF EOL 

;YES - RETURN ADDR OF LAST C 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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20 
20 
20 
20 
20 
20 
20 
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20 
20 
20 
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2G 
20 
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0A07 




EK130 


EQU $ 




0A07 


?B 






MOV A # E 


;PUT # OF CHARS DONE IN A-RE 


0A08 


EB 






XCHG 


;PUT CHARACTER ADDRESS IN D # 


0A09 


2190FF 






LXI H,EOLMV 


;(SET H TO DATA PAGE) 


OAOC 


3601 






MVI M,1 


;SET EOLMV FLAG 


OAOE 


C9 






RET 


;RETURN 






t 

; 


***** ************** 








r 


LD - 


LINE DELFTE * 








r 


******************* 




OAOF 




LNDEL 


EQU $ 




OAOF 


CD7317 






CALL CKFMS ; 


FORMAT MODE? 


0A12 


CC1507 






CZ RADR1 


FIND LINE IF NOT 


0At5 


CO 






RNZ 


LINE NOT FOUND 


0A16 


2AC9FF 






LHLD LTLIN 


;6ET ADDR OF LAST LINE DONE 


0A19 


7E 






HOV A„M 


;6ET PREVIOUS LINE'S LSB 


OAtA 


B7 






ORA A 


;ANY PREVIOUS LINES? 


0A1B 


CA2C0A 






JZ LD050 


;N0 - DO CLEAR LINE ONLY 


0A1E 


CD320A 






CALL LNDLO 


;YES - DELETE CURRENT LINE 






; 


************************************** 






r 


UPDATE LSTLIN AND CURADR TO ADDRESS * 






e 


OF NEXT LINE 


* 






• 


************************************** 


0A21 


60 






HOV H,B 


;PUT NEW LINE ADDRESS INTO 


0A22 


69 






MOV L,C 


i H,L 


0A23 


CD4E17 






CALL BCKT5 


;UPDATE CURRENT LINE AND ADD 


0A26 


CD7F0A 






CALL LNINO 


;G0 UPDATE TOP LINE IF NEEDE 


0A29 


C3F206 






JMP PTLIN 


;ADD LINE TO FREE LIST 


0A2C 




LD050 


EQU $ 




0A2C 


CDBE18 






CALL CEARL 


;CLEAR THE LINE 


0A2F 


C3771E 






JMP CRPRT 


;SET CURSOR AT LEFT HAR6IN 






# 

i 


*************************************** 






# 


LINDLO - RMOVE LINE 


FROM LINKED LIST * 






; 


*************************************** 






r 
r 


ENTRY: H # L = ADDRESS OF NEXT LINE FIELD 






r 




(LSB) OF 


LINE TO BE DELETED 






# 




EXIT : B # C = ADDRESS OF LSB PORTION OF 






t 




NEXT LINE POINTER IN NEW LINE 



D,E = H,LCENTRY) 
A,H r L DESTROYED 



0A32 




0A32 


5D 


0A33 


54 


0A34 


4E 


0A35 


23 


0A36 


46 


0A37 


23 


0A38 


7E 


0A39 


23 


0A3A 


66 


0A3B 


B7 


0A3C 


C2480A 



LNDLO 



EQU 


% 


MOV 


E,L 


MOV 


D,H 


MOV 


C,M 


I NX 


H 


MOV 


B,M 


INX 


H 


MOV 


A # W 


INX 


H 


MOV 


H,M 


ORA 


A 


JNZ 


LD200 



;SAVE ADDRESS OF LINE TO BE 

;DELETED IN D,E 
;GET ADDRESS OF NEXT LINE 



;GET ADDRESS OF PREVIOUS LIN 



0A3F 



60 



;DOES PREVIOUS LINE 
;YES - LINK 2 LINES 
************************************** 

FIRST LINE DELETED - UPDATE FLINE * 
************************************** 

MOV H,B ;MOVE NEW CURRENT LINE 



EXIST? 
TOGETHER 



TO H, 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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0A4Q 


69 




MOV 


L^C 


0A41 


23 




INX 


H 


0A42 


229FFF 




SHLD 


FLINE 


0A45 


C34E0A 




JMP 


LD30O 






^ **************** 






; UPDATE NEXT LIN 






; **************** 


0A48 




LD200 


Eau : 


i 


0A48 


6F 




MOV 


L,A 


0A49 


23 




I NX 


H 


0A4A 


CB140F 




CALL 


DSLNK 






r 
;**************** 






; SET 


PREVIOUS LI 






* **** ************ 


0A4D 


7D 




MOV 


A,L 


0A4E 




LD300 


EQU 


$ 


0A4E 


03 




INX 


B 


0A4F 


C5 




PUSH 


B 


0A5O 


03 




INX 


B 


0A51 


03 




INX 


B 


0A52 


02 




STAX 


B 


0A53 


03 




INX 


B 


0A54 


7C 




MOV 


A,H 


0A55 


02 




STAX 


B 


0A56 
0A57 


C1 
C9 




POP 
RET 


B 



;SET ADDR TO NEXT LINE FIELD 
;SET NEW PREV LINE POINTER 

************************** 

E FIELD IN PREVIOUS LINE * 
************************** 

;PUT LSB INTO {.-REGISTER 
;SET TO MSB OF NEXT LINE FLD 
;SET NEW NEXT LINE LINK TO 
CURRENT ROW 
*********************** 

NE FIELD IN NEXT LINE * 

*********************** 

;SAVE PREV LINE ADDR'S LSB 

^INCREMENT TO NEXT LINE PTR 

;SAVE ADDRESS 

;S£T ADDRESS TO PREVIOUS 

;LINE FIELD 
; STORE LSB VALUE 



; STORE MSB VLAUE 
;RESTORE CONTENTS OF B„C 
; RETURN 



;******************* 
; LI - LINE INSERT * 

; ******************* 



0A58 




0A58 


CD7317 


0A5B 


CC1507 


0A5E 


CO 


0A5F 


CDBF05 


0A62 


C8 



LNINS 



EQU $ 

CALL CKFMS 

CZ RADRT 

RNZ 

CALL GBLKF 

RZ 



; FORMAT MODE? 
;F1ND LINE IF NOT 
;RETURN IF LINE NOT FOUND 
;6ET BLOCK FOR NEW LINE 
;RETURN IF NOT AVAILABLE 



0A63 


C60B 


0A65 


2D 


0A66 


74 


0A67 


2D 


0A68 


77 


0A69 


D602 


0A6B 


6F 


0A6C 


CD9C0D 



;******************************** 
; STORE LINK AT END OF NEW LINE * 
;******************************** 

ADI BLKSZ-5 ;GET ADDR OF NEXT 



LINE FIELD 



DCR L 

MOV M,H 


;STORE 


LINK MSB'S 


DCR L 
MOV M„A 
SUl 2 


;STORE 
; STORE 


LINK LSB'S 

EOL IN NEW LINE 


MOV L„A 
CALL SCHRt 


;SET 


FIRST DISPLAY CHARACTER 



;********************************************* 

; ADJUST LSTLIN AND CURADR PNTRS TO NEW LINE * 
• ********************************************* 



0A6F 


22C3FF 


0A72 


23 


0A73 


7D 


0A74 


EB 


0A75 


2AC9FF 


0A78 


EB 


0A79 


22C9FF 


0A7C 


CD940A 



SHLD 

INX 

MOV 

XCH6 

LHLD 

XCHG 

SHLD 

CALL 



CRADR 

H 

A # L 

LTLIN 

LTLIN 
LNIN1 



;SET CURADR TO 1ST CHAR 
;SET TO NEXT LINE POINTER 
;PUT LSB INTO A-REGISTER 

;GET CURRENT LINE ADDRESS 

;SET NEW CURRENT LINE ADDRES 
;ADD LINE TO DISPLAY LIST 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


F I LE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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; **************************** 

ROW ZERO * 







; UPDATE TOPLIN IF 






; ****************** 


0A7F 




lnino 


equ 


$ 


GA7F 


CDF80A 




CALL 


LTLU2 


0A82 


CD771E 




CALL 


CRPRT 


0A85 


AF 




XRA 


A 


QA86 


32C8FF 




STA 


LTCOL 


0A89 


21C0FF 




LXI 


H # CRROW 


QA8C 


B6 




ORA 


n 


0A80 


CO 




RNZ 




0A8E 


C3050F 




JMP 


TPUP1 



;SET INITIAL LIME STATE 
;SET CURSOR TO LEFT MARGIN 
;SET LAST COLUMN DONE TO 

;ZERO 
;GET CURRENT ROW NUMBER 
;DID TOP ROW CHANGE? 
;N0 - RETURN 
;YES - UPDATE TOP LINE VALUE 



0A91 




0A91 


7B 


0A92 


42 


0A93 


EB 


0A94 




0A94 


6B 


0A95 


62 


0A96 


23 


0A97 


23 


0A98 


4E 


0A99 


77 


0A9A 


23 


0A9B 


56 


0A9C 


70 



0A9D 


6F 


0A9E 


7C 


0A9F 


60 


OAAO 


1D 


0AA1 


73 


0AA2 


23 


0AA3 


77 


0AA4 


23 


0AA5 


71 


0AA6 


23 


0AA7 


72 



; LININ1 - ADD LINE TO 
; ENTRY: D # £=NEXT PAGE 



****************************** 

LINK LIS 
FIELD AD 
BEFORE WHICH NEW L 
TO BE INSERTED 
A,B=NEXT PAGE FIELD AD 
TO BE INSERTED 
EXIT : C„B = A^BCENTRY) 
D-L DESTROYED 



LNINA 



LNIN1 



EQU 


$ 


MOV 


A, E 


MOV 


B,D 


XCH€ 




EQU 


$ 


MOV 


L,E 


MOV 


H„D 


INX 


H 


I NX 


H 


MOV 


C,M 


MOV 


M,A 


INX 


H 


MOV 


D,M 


MOV 


M,B 



;PUT ROLL 

;B # A 
;PUT CHAR 

; UPDATE PRE 
;IN NEXT LI 
;SET ADDR 
;LINE P 
;GET ADDR 
;STORE ADDR 



************ 
T * 

DR IN LINE * 
INE IS * 
* 

DR OF LINE * 



************ 

ED LINE ADDRESS INT 

ADDRESS INTO D,E 

V LINE PTR 
NE 

ESS TO PREVIOUS 
OINTER 
F PREV LINE 
OF NEW LINE 



; UPDATE NEXT/PREVIOUS POINTERS 
; IN NEW LINE 

;****************************** 



MOV 


L,A 


MOV 


A,H 


MOV 


H,B 


DCR 


E 


MOV 


K,E 


INX 


H 


MOV 


M,A 


INX 


H 


MOV 


M r C 


INX 


H 


MOV 


M,D 



;GET ADDR OF NEXT LINE FIELD 



;SKIP OVER 
; STORE NEXT 



;STORE 
;STORE 
;STORE 



NEXT 



PREV 



PREV 



0AA8 


79 


0AA9 


B7 


OAAA 


7D 


OAAB 


CAB90A 



} ****************************** 
; SEE IF NEW LINE IS FIRST LINE 

;****************************** 

MOV A,C ;6ET PREV L 

ORA A ;SET FLAGS 

MOV A,L ;(PUT LSB 

JZ LI200 ;JUMP IF NE 



POINTERS 




LINE 


LSB 


►s 


LINE 


MSB' 


»S 


LINE 


LSB 


•s 


LINE 


MSB' 


»s 


** 






* 






** 






INE LSB*S 




F ADDF 


IN 


A-REG) 


W LINE 


IS 





FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 
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OAAE 


D604 


OABO 


69 


0AB1 


62 


0AB2 


4F 


0AB3 


23 


0AB4 


CD140F 


0AB7 


OC 


0AB8 


C9 



0AB9 
0AB9 
OABB 
OABC 
OABD 
OACO 



0AC1 
0AC1 
0AC4 
0AC6 
0AC7 
0AC7 
OACA 
OACC 
OACE 
9ACF 
0AD1 
0AD4 
GAD5 
0AD6 
0AD9 
0AD9 



D6Q3 

4F 

6F 

229FFF 

C9 



3AFBFF 

E604 

C8 

216CFF 

36FF 

2 ECO 

7E 

FE17 

CAD90A 

3C 

77 

322780 

CC5B0C 



; FIRST LINE 

;********************************* 

; NEW LINE IS NOT FIRST LINE * 
; LINK PREVIOUS LINE TO NEW LINE * 
-********************************* 



SUI 

MOV 

MOV 

MOV 

INX 

CALL 

INR 

RET 



4 

L,C 

H,D 

C,A 

H 

DSLNK 
C 



;6ET ADDR OF NEW LINE DATA 
;6ET ADDR OF NEXT PAGE FIELD 
;0F PREVIOUS LINE 

;NEW LINE'S LSB TO C 
SET TO MSB PART OF FIELD 
LINK PREV LINE TO NEW LINE 

; RETURN 



************************* 

NEW LIME IS FIRST LINE * 

************************* 



LI 200 EQU 

SUI 

MOV 

MOV 

SHLD 

RET 

t 

* ********** 

; LINE FEED 
r ********** 



$ 

3 
C,A 

L,A 

FLINE 



;6ET ADDR OF NEXT PAGE FIELD 
;PUT LSB INTO C-RE6ISTER 

;SET NEW FIRST LINE POINTER 

;RETURN 



CNDLF 



LFEED 



LF100 



EQU 

LDA 

AN I 

RZ 

EQU 

LXI 

MVI 

MVI 

MOV 

CPI 

JZ 

INR 

MOV 

STA 

EQU 

CZ 



********* 

PROCESSO 
********* 

$ 

KJMPR 
LNWRP 



*** 

R * 

*** 



H^SPOWL 

M,SOWOF 

L,CRRGW- 
A,M 
MX ROW 

LF100 

A 

M # A 

ICRRW 

$ 

RLLUP 



;GET THE STRAP SETTINGS 
;WRAP AROUND ENABLED? 
;YES - LF NOT REQUIRED 

;CLEAR SPOW LATCH 

BASE ;GET CURSOR ROW 

;IS CURSOR IN BOTTOM ROW? 
;YES - ROLL UP THE DISPLAY 
;N0 - MOVE CURSOR TO NEXT RO 
; STORE NEW ROW NUMBER 
;SET SCREEN CURSOR 

;(ROLL UP IF AT BOTTOM) 



OADC 


3A70FF 


OADF 


E640 


0AE1 


CO 


0AE2 


3A64FF 


0AE5 


E62 


0AE7 


CO 

i 


0AE8 


r 

3EFF 


OAEA 


CD6C07 


Oaed 


CDC20F 


OAFO 


C47F14 


0AF3 


C9 



BUILD FIRST BLOCK OF NEW ROW IF NECESSARY 

LDA MFLSS ;GET BLOCK XFR PENDING FLAGS 

ANI SNTER/256 ;ENTER PENDING? 

RNZ ;YES - DO NOT BUILD NEW ROW 

LDA IFLG2 ;N0 - GET I/O FLAGS 

ANI XS2BF ;D1SPLAY TO 1/0 BUFFER? 

RNZ ;YES - DO NOT BUILD NEW ROW 

ACQUIRE MEMORY FOR EDIT MODE IF NEEDED 



MVI A,-1 
CALL RADRO 
CALL CEDIT 
CNZ FECNT 
RET 



;LOCATE BEGINNING OF NEW 

;ROW 
;CHECK FOR SUFFICIENT FREE 

;RETURN 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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GAF4 
0AF4 
OAF? 
0AF7 
0AF8 
OAFS 
QAF9 
OAFC 
OAFE 
OBOt 
0804 
0805 
0B07 
OBOA 
OBOD 
0B10 



0B11 
0B11 
0B14 
0B15 
OB 18 
0B18 
0B1B 
OBtE 
0B20 



22C9FF 

E6 

AF 

32C6FF 

3EC0 

32C5FF 

CD7317 

C8 

3EFF 

32C2FF 

216707 

2286FF 

C9 



3A6BFF 

B7 

C23510 

210000 
226AFF 
3E04 
C31170 



************************ 

LSTLUP - UPDATE "LSTLIN" 

ENTRY: H # L = ADDRESS TO BE STORED 

EXIT : D # E = LSTLIN = H,.L(ENTRY> 
A # H,L DESTROYED 
LSTDCD = 
PROFLD SET TO INDICATE PROTECTED 
FIELD OF FORMAT MODE ENABLED 



LTLUP EQU $ 

SHLD LTLIN 

LTLU1 EQU $ 
XCHG 

LTL02 EQU $ 

XRA A 

STA LTDCD 

RVI A,STPR 

STA LTFMT 

CALL CKFMS 
RZ 

MVI A,-1 

STA POFLD 

LXI H,2£TRN 

SHLD CKRTN 
RET 

# 

• ****************** 

; MEMORY LOCK OFF * 
****************** 
EQU $ 
LDA MKROW 
ORA A 
JNZ MLKOF 
EQU $ 
LXI H,0 
SHLD MKFL6 
MVI A,MMLOK 
JMP ZLMD1 

/ ************* **** 

; MEMORY LOCK ON * 
' ***************** 



;SET NEW "LSTLIN" VALUE 

;PUT "LSTLIN" VALUE INTO D,E 

/CLEAR LAST DISPLAY CODE 

; INITIALIZE LAST FORMAT 
; CONTROL CODE TO "STPR" 
;FORMAT MODE? 
/NO - RETURN 

/YES - SET PROTECT FLAG TO 

/INDICATE PROTECTED FIELD 
/INITIALIZE FIELD CHECKING 
/ROUTINE 



MKOFO 



MKOFF 



/GET MEMORY LOCK ROW 
;SET FOR FULL LOCK OUT? 
/NO - CLEAR LOCK OUT ONLY 
/YES - TURN OFF MEMORY LOCK 
;SET MEMORY LOCK ROW AND 

/FLAG TO ZERO 
/TURN OFF MEMORY LOCK 

/FLAG 



0B23 




MLKON 


EQU 


$ 


0B23 


3AC0FF 




LDA 


CRROW 


0B26 


B7 




ORA 


A 


0B27 


C22E0B 




JNZ 


MO 005 


0B2A 


CDC20F 




CALL 


CEDIT 


0B2D 


CO 




RNZ 




0B2E 




M0005 


EQU 


$ 


0B2E 


326BFF 




STA 


MK ROW 


0B31 




M0010 


EQU 


$ 


0B31 


3E04 




MVI 


A,MMLOK 


0B33 


0600 




MVI 


B,0 


0B35 


216AFF 




LXI 


H,MKFLG 


0B38 


70 




MOV 


M,B 


OB 39 


C30E70 




JMP 


ZTMD1 



/GET CURRENT CURSOR ROW 
/SET FOR OVERFLOW INHIBIT? 
/NO - SET MEMORY LOCK ROW 
/EDIT MODE? 

/YES - DON'T ALLOW LOCK OUT 
/NO - SET MEMORY LOCK ROW 



/TURN MEMORY LOCK FLAG 
/ON AND DON'T BLINK LED 
/(CLEAR THE MEMORY LOCK 
/FLAG) 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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0B3C 
QB3C 
QB3F 
0B40 
0B43 

0B46 
0846 
0B49 
0B4A 



0B4B 
0B4E 
0B4E 
0B4F 
0B4F 
0B52 
OB53 
OB54 
OB 5 5 
0B56 

0B59 
0B59 
0B5B 



0B5C 
0B5C 
0B5F 
OB 60 
0B63 
0B63 
0B66 
0B67 



********************************** 

MLKSCH - LOCATE MEMORY LOCK ROW * 

********************************** 

ENTRY: DON'T CARE 

EXIT : 1 - MEMORY LOCK ROW NOT FOUND 
A # C # H # L DESTROYED 
NZ - MEMORY LOCK ROW FOUND 

H # L = ADDRESS OF LAST LOCK ROW 
(POINTS TO LSB OF NEXT LINE 
POINTER! 
A # C DESTROYED 



MKSCO 



3A6BFF 
B7 

2ACBFF 
CA590B 



3A6BFF 

B7 

C8 



2ACBFF 

4F 

CD6A17 

B7 

C8 

23 

OD 

C24F0B 



F6FF 
C9 



MKSCH 



EQU 

LDA 

ORA 

LHLD 

JZ 

EQU 
LDA 
ORA 
RZ 



f 

MKROW 

A 

TPLIN 

NEXIT 

$ 

MKROW 

A 



; SEARCH FOR ROW * 

;***************** 

LHLD TPLIN 

MKSC1 EQU $ 

MOV C # A 

MS120 EQU $ 

CALL CHAIN 

ORA A 

RZ 

I NX H 

DCR C 

JNZ HS120 



;LOCATE FIRST UNLOCKED ROW 
;6ET MEMORY LOCK ROW 
;SET FOR PARTIAL SCREEN LOCK 
;(SET FOR TOP DISPLAY LINE 
;N0 - RETURN FOUND (NZ) 
YES - LOCATE MEMORY LOCK ROW 

;6ET MEMORY LOCK ROW 

;SET FOR PARTIAL SCREEN LOCK 
;N0 - RETURN 



;6ET TOP LINE ADDRESS 

; LOCATE LINE (A-RE6> 

;PUT LINE NUMBER IN C-RE6 

;6ET ADDRESS OF NEXT LINE 
;DOES NEXT LINE EXIST? 
;N0 - RETURN FAIL (Z> 
;YES - SET TO NEXT LINE PTR 
;ALL LINES FOUND? 
;N0 - DO NEXT LINE 



NEXIT 



EQU 
ORI 
RET 



$ 
377Q 



;SET NZ # S 
;RETURNCZERO FLAG 



FALSE) 



********************************************* 
CK - TURN ON MEMORY LOCK FULL CONDITION * 
***************************************** 



; MLO 

**** 



mocko 



CD8917 

37 

C2211E 

216AFF 

66 

C2750B 



ENTRY: DON'T CARE 

EXIT : A = 
Z = T 
MLKTMR = -1 (377B) 

$ 
CKSFK 



MLOCK 



EQU 

CALL 

STC 

JNZ 

EQU 

LXI 

ORA 

JNZ 



SWAP1 

$ 

B,MKFLG 

M 
MK010 



;SET SOFT KEY 
;YES SWAP 



FLAG 



;SET H,L TO MEMORY LOCK FLAG 
;MEMORY ALREADY LOCKED? 
;YES - DON»T SOUND BELL 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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0B6A 


3E04 




mvi 


A,WMLOK 


0B6C 


06FF 




MVI 


B,3778 


0B6E 


70 




MOV 


W,B 


0B6F 


CDOE70 




CALL 


ZTMD1 


0B72 




M0CK1 


EQU 


$ 


0B72 


CD1470 




CALL 


ZBELL 


0B75 




MK010 


EQO 


$ 


QB75 


AF 




XRA 


A 


0B76 


219AFF 




LXI 


H # NROWS 


0B79 


77 




RQV 


«,A 


0B7A 


C9 




RET 




0B7B 


00 




MOP 





0B7C 
0B7C 
0B7D 
08 7 E 
0B7F 
0B80 
QB81 
OB 8 2 
0B84 
OB 87 
0B88 



OB 89 
0B89 
0B8B 
0B8D 
0B8E 
0B91 
0B91 
0B94 
0B97 
0B9A 
0B9D 
OBAO 



ERRORS = PAGE 60 



;N0 - FORCE MEMORY LOCK ON 

;AND BLINKING 
;SET MEMORY LOCK FLAG 

;SOUND BELL AND RETURN A = 
;S0UND THE BELL 

;SET Z-FLAG 

; (SET H TO DATA PAGE) 
;CLEAR NROWS FOR RCADDR 
; RETURN (A ~ 0, Z= T) 
;NOP FOR PATCH TO "PT772" 



************************ 

MOVCKR - WOVE CHARACTER STRING 

ENTRY: H # L = SOURCE POINTER 

B,C = DESTINATION POINTER 

EXIT : B,C = NEXT STORAGE LOCATION 
H # L = END OF SOURCE STRING 
Z ~ TERMINATED BY A NULL BYTE 
NZ - TERMINATED BY AN EOP 



7E 

B7 

C8 

02 

23 

OB 

FECE 

C27C0B 

B7 

C9 



MVCHR ESU 
MOV 
ORA 
RZ 

STAX 
I NX 
DCX 
CPI 
JNZ 
ORA 
RET 

; NEXT PAGE 



NXTPG 



3E18 
2E6B 
96 
CDA10B 

3A6BFF 
32 C OFF 
CD771E 
CD7317 
C2461A 
C9 



NT040 



EQO 

MVI 

MVI 

SOB 

CALL 

E«U 

LDA 

ST A 

CALL 

CALL 

JNZ 

RET 



$ 

A,M 

A 

B 

H 

B 

EOP 

MVCHR 

A 

** 

* 
** 
$ 

A,MXROy-M 

L # MKRGW 

M 

NT100 

S 

MKROW 

CRROW 

CRPRT 

CKFMS 

FLDSR 



GET DATA BYTE 

IS IT A NULL? 

YES - RETURN (Z - TRUE) 

NO - STORE THE BYTE 

INCREMENT TO NEXT SOURCE BY 

DECREMENT TO NEXT BEST BYTE 

WAS LAST BYTE AN EOP? 

NO - DO NEXT BYTE 

YES - SET Z-FALSE 

RETURN 



;***•****** 
; NXTP61 - ROLL UP N 



;CO«PUTE NUMBER OF LINES 
;T0 ROLL UP 



;SET CURRENT CURSOR POSITION 
;T0 MEMORY LOCK ROW AND 
;LEFT MARGIN 

; FORMAT/SOFT KEY DEFINE MODE 

;YES - TAB TO NEXT FIELD 

;N0 - RETURN 



************** 
LINES 



ENTRY: A = NUMBER OF ROWS TO ROLL UP 
H = BASEH 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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0BA1 

0BA1 

0BA1 

DBA 2 

0BA4 

0BA5 

0BA6 

0BA6 

0BA7 

OBAA 

OBAD 

OBAE 

0BB1 

0BB2 



OBBA 
OBBA 
OBBB 
OBBB 
OBBC 
OBBD 
OBBF 
0BC2 
0BC3 
0BC4 
08C5 
0BC6 
QBC7 
0BC8 
0BC9 
OBCB 
OBCC 



EXIT 



C * 



NUMBER OF 
= NMROLL+ 



LINES ROLLED 



A,B,D,E DESTROYED 



NT100 
NTPG1 



4F 

2E82 

71 

23 

71 

CD5B0C 

2182FF 

4E 

CAB50B 

OD 

C2A60B 



NT110 



EQU 

EQU 

MOV 

MVI 

MOV 

INX 

EQU 

MOV 

CALL 

LXI 

MOV 

JZ 

DCR 

JNZ 



C /■ ft 

L,RLLCT 

M,C 

H 

$ 

M,C 

RLLUP 

H,RLLCT 

C„K 

NT120 

C 

NT110 



;PUT ROLL PARAMETER IN 
;SAVE ROLL PARAMETER 



;ROLL UP SUCCESSFUL? 
: (RECALL ROLL COUNT* 



C-RE6 



DONE? 

UP ANOTHER 

(C = 0) 



0BB5 




0BB5 


23 


0BB6 


7E 


0BB7 


91 


0BB8 


4F 


0BB9 


C9 



• ***** 
; TERM 
z RO 



NT120 



;N0 - EXIT 

;ALL LINES 

;N0 - ROLL 

YES - EXIT 

**************************************** 
INATE ROLL UP - RETURN NUMBER OF LINES * 
LLED * 

**************************************** 



LINE 



EQU 
INX 
MOV 
SOB 
MOV 
RET 



$ 

H 

A # M 

C 

C,A 



;6ET NUMBER OF LINES TO BE 

;ROLLED UP 
;COMPUTE ACTUAL NUMBER DONE 
; RETURN VALUE IN C -REGISTER 
; RETURN 



# 

r 


r 













********************************************** 

NXTCHR - GET NEXT CHARACTER IN DISPLAY LIST * 
********************************************** 

ENTRY: D,E = ADDRESS OF CURRENT CHARACTER 

EXIT : Z * T # CHARACTER IS NOT AN EOL LINK 
A = DISPLAY CHARACTER 
D,E = ADDRESS OF CHARACTER 
f, NEXT CHARACTER IS EOL LINK 
A DESTROYED 
D,E - ADDRESS OF NEXT LINE LINK 



EB 

1B 

1A 

FEDO 

DACDOB 

EB 

2B 

6E 

67 

EB 

7B 

2F 

E60F 

CO 

1A 



NTCHO 



NTCHR 



EQO 
XCHG 
EQU 
DCX 



LDAX D 
CPI LKLIM 



JC 

XCHG 

DCX 

MOV 

MOV 

XCHG 

MOV 

CMA 

AN I 

RNZ 

LDAX 



NH010 

H 

L,M 

H,A 

A,E 

BLKSM 



;PUT POINTER INTO D,E 

;6ET THE NEXT DISPLAY 

; CHARACTER 
;IS IT A LINK? 
;N0 - EXIT 

;YES - GET NEW ADDRESS 
;6ET LSB OF LINK 



;PUT ADDRESS INTO D,E 
;PUT LSB INTO A-REGISTER 
;END OF LINE LINK (LOWER 

;BITS NOT ALL ONES)? 
;YES - RETURN Z FALSE 
;N0 - GET THE DATA BYTE 



FOU 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
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oecD 




NH010 


EQU 


$ 




OBCD 


BF 




CMP 


A 


;SET Z TRUE 


OBCE 


C9 




RET 




;RETURN 



0BE8 
0BE8 



; PAROUT - SEND STATUS BITS * 

; **************************** 







; ENTRY: 


A = PA 






; EXIT : 


A-E DE 


OBCF 




PR0T4 


EQU 


$ 


OBCF 


OF 




RRC 




OBOQ 




PR0T3 


EQU 


$ 


OBDO 


OF 




RRC 




0BD1 




PR0T2 


EQU 


$ 


0BD1 


OF 




RRC 




0BD2 




PR0T1 


EQU 


$ 


0BD2 


OF 




RRC 




0BD3 




PROUT 


EQU 


$ 


0BD3 


E60F 




ANI 


179 


0BD5 


C630 




ADI 


ZERO 


0BD7 


E5 




PUSI- 


1 H 


0BD8 


CDCDFF 




CALl 


. EONTF 


OBOB 


E1 




POP 


H 


OBDC 


C9 




RET 





A = PARITY BITS TO BE SENT 
ROYED 

;ROTATE DOWN 4 BITS FIRST 



;6ET BITS 0-3 

;ADD IN ZERO BASE TO FORCE 

;DISPLAYABLE CHARACTER 
;PERFORM OUTPUT FUNCTION 
; RE STORE H„L 
;RETURN 



**************** 



OBDD 




OBDD 


3EE8 


08DF 


2E6B 


0BE1 


86 


0BE2 


CDEAOB 


0BE5 


C3910B 



3600 



; PREVIOUS PAGE * 
• **************** 

PEVP6 EQU $ 

«VI A,-MXR0W-1 

MVI L,HKROW ;COHPUTE NUMBER OF ROWS TO 

ADD M ;ROLL DOWN 

CALL PV100 

JMP NT040 
t 

PRVP61 - ROLL DOWN FOR CURSOR POSITIONING 

ENTRY: H,L = CURROW+ 

PVPG1 EQU $ 

MVI « # ;SET CURRENT ROW TO ZERO 

r 

**************** ********* 

t 

; PRV100 - ROLL DOWN N LINES 

; ENTRY: A = -NUMBER OF LINES TO ROLL DOWN 
; H = BASEH 



EXIT 



A-L DESTROYED 



OBEA 




OBEA 


3282FF 


OB ED 




OBED 


CDF90B 



PVTOO EQU $ 

STA RLLCT ;SAVE THE ROLL COUNT 
PV110 EQU S 

CALL RLLDN ;LINE ROLLED DOWN? 



FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 
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0BF9 
0BF9 
OBFC 



OSFF 
OCOO 
0C03 
0C04 
0C05 
0C08 
0C09 
OCOA 
OCOB 
OCOE 
0C11 
0C12 
0C13 
0C16 
0C19 
0C1A 
0C10 
0C1E 
0C21 
0C22 



CD460B 
CA230C 



EB 

2ACBFF 

23 

23 

CD6A17 

B7 

C8 

D5 

CD320A 

21A3FF 

35 

E1 

CD910A 

3A6BFF 

3D 

21C7FF 

BE 

FA4C0C 

B4 

C9 



0C23 




0C23 


3A6BFF 


0C26 


87 


0C27 


CA3E0C 


0C2A 


21C0FF 


0C2D 


46 


0C2E 


77 


0C2F 


C5 


0C30 


3EFF 


0C32 


C06C07 


0C35 


C1 


0C36 


78 


0C37 


32C0FF 


0C3A 


CO 



ERRORS = PAGE 63 



;CSET K TO DATA PAGE) 
;N0 - RETURN 
;ALL LINES DONE? 
;N0 - DO ANOTHER LINE 
;Y£S - RETURN 



J************************************** 

; ROLLDN - ROLL DISPLAY DOWN ONE LINE * 
-♦♦♦A********************************** 



ENTRY: DON»T CARE 



OBFO 


2182FF 


LXI 


H,RLLCT 


DBF 3 


C8 


RZ 




0BF4 


34 


INR 


n 


0BF5 


C2ED0B 


JNZ 


PV110 


0BF8 


C9 


RET 





r 
i 

RLLDN 



EXIT : NZ - ROLL DOWN SUCCESSFUL 
Z - ROLL DOWN FAILED 
ALL REGISTERS DESTROYED 



EQU $ 

CALL WKSCH 
JZ RD080 
; ******************* 

; MEMORY LOCK ROLL D 
;******************* 

XCH6 

LHLD TPLIN 

INX H 

INX H 

CALL CHAIN 

ORA A 

RZ 

PUSH 

CALL 

LXI 

DCR 

POP 

CALL 

LDA 



DCR 

LXI 

CMP 

JM 

ORA 

RET 



D 

LNDLO 

H,TLINO 

M 

H 

LNINA 

MKROW 

A 

H,LTROW 



M 



RD090 
H 



***** 

OWN * 

***** 

;LAST LOCKED LINE ADD 
;GET TOP LINE ADDRESS 
;SET ADDRESS TO PREVI 

;POINTER 
;6ET PREVIOUS LINE'S 
;PREVIOUS LINE EXIST? 
;N0 - RETURN 
;YES - ROLL DOWN THE 
; DELETE 1ST LINE ABOV 
;DECREMENT TOP LINE 

; NUMBER 
; RECALL LAST LOCKED L 
;ADD LINE BELOW LOCKE 
;6ET LOCK ROW NUMBER 
;ADJUST FOR COMPARE 
; COMPARE TO LAST ROW 

;DID IT ROLL DOWN? 

;YES - UPDATE DISPLAY 
;N0 - FORCE NZ AND EX 
; RETURN 



R TOD, 
OUS LIN 
ADDRESS 



LINE 
E DISP 



INE ADD 
D LINES 



DONE 

PTRS 
IT 



-************* 
; NORMAL ROLL 

; ************* 



RDO80 



EQU $ 
LDA MK 



ORA 

JZ 

LXI 

MOV 

MOV 



A 

RD 
H, 
B, 

M, 



****** 
DOWN * 
****** 

ROW 

085 
CRROW 

M 
A 



PUSH 8 
MVI A, 
CALL RA 
POP B 
MOV A # 
STA CR 
RNZ 



-1 

DR0 

B 
ROW 



;GET MEMORY LOCK ROW 
;IS IT ZERO? 

;YES - DO NORMAL ROLL DOWN 
;N0 - TRY TO ALLOCATE LINES 
;T0 MEMORY LOCK ROW 

;SAVE CURRENT ROW NUMBER 
;(SET FOR COLUMN ZERO) 

;IS MEMORY AVAILABLE? 
; (RESTORE CURRENT ROW 
;NUM8ER) 

;N0 - RETURN FAIL 
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FILE 
FILE 
FILE 

c t t r 

I iLl 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 
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FILE 

FILE 
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0C3B 



0C45 
0C47 
0C4A 
0C4C 
0C4C 
0C4D 
0C4E 
0C50 
0C53 
0C56 
0C57 
0C58 



C3F90B 



JMP RLLDN 



ERRORS = PAGE 64 



;¥ES - RETRY MEMORY LOCK ROL 



0C3E 


RD 


085 EQU 


% 


GC3E 


2ACBFF 


LMLD 


TP 


0C4t 


23 


INX 


H 


0C42 


23 


INX 


H 


0C43 


86 


ORA 


M 


0C44 


C8 


RZ 





DISPLAY NOT LOCKED - DO NORMAL ROLL DOWN 



LIN 



16FF 

CDF80E 

2EC? 

7E 

3C 

FE18 

C2E415 

2AC9FF 

23 

23 

C3 870C 



; ************* 

; TOP LINE IS 
; ADVANCE POIN 
; ************* 

MVI D # - 
CALL TP 



RD090 



MVI 
EQU 
MOV 
INR 

CPI 

JNZ 
LKLD 



L, 

$ 
A,M 

A 
MXR 
SOR 

LT 



;6ET TOP LINE ADDRESS 
;SET TO PREVIOUS LINE 

;ADDRESS 
;ANY PREVIOUS LINES? 
;N0 - DON'T DO ROLL DOWN 
YES - ROLL ONE LINE DOWN 
**************** 

NOT FIRST LINE * 
TERS * 

**************** 

1 ;FLA6 TO DECREMENT TLINO 
UPD ;UPDATE TOP LINE POINTERS 
LTROW-BASE ;GET LAST ROW PROCESSED 



INX H 
INX H 
JMP RL2 



OW + 1 

EA 

LIN 



00 



; INCREMENT 

;NOT ROLL OFF - STORE ROW 

;GET ADDR OF LAST LINE DONE 
;SET TO PREVIOUS LINE 
;ADDRESS 



************************************ 

ROLLUP - ROLL UP DISPLAY ONE LINE * 
************************************ 



0C5B 




RLLUP 


EQU 


$ 


0C5B 


CD460B 




CALL 


. MKSCH 


0C5E 


CA9A0C 




JZ 


RL080 






; ******************** 






; MEMORY LOCK ROLL -UP 






; ******************** 


0C61 


7E 




MOV 


A,M 


0C62 


B7 




ORA 


A 


0C63 


C8 




RZ 




0C64 


CD320A 




CALL 


LNDLO 


0C67 


21A3FF 




LXI 


K # TLINO 


0C6A 


34 




INR 


M 


0C6B 


2ACBFF 




LMLD 


TPLIN 


0C6E 


3A6BFF 




LDA 


MIC ROW 


0C71 


F620 




ORI 


KYEOP 


0C73 


322780 




STA 


ICRRW 


0C76 


CD910A 




CALL 


. LNINA 


QC79 


3A6BFF 




LDA 


MKROW ; 


0C7C 


21C7FF 




LXI 


H # LTROW 


0C7F 


96 




SUB 


M 


0C80 


FAA80C 




JM 


RL09Q 


0C83 


CO 




RNZ 




0C84 


77 




MOV 


M,A 


0C85 




RL100 


EQU 


$ 


0C85 


2ECE 




MVI 


L, TPLIN ; 


0C87 




RL200 


EQU 


$ 


0C87 


5E 




MOV 


E„M 


0C88 




RLUP2 


EQU 


$ 


0C88 


2C 




INR 


L 



IS THERE A NEXT LINE? 



ROLL 
FIRST 



UP 
UNLOCKED 



;N0 - DON*T DO 

;YES - REMOVE 
;LINE 

;INCREMENT TOP LINE NUMBER 

;6ET TOP DISPLAY LINE ADORES 

; FORCE END-OF-PAGE IF DISPLA 
;IS CURRENTLY REFRESHING 
;WE«ORY LOCK BOUNDARY ROW 

;ADD LINE ABOVE DISPLAY 
;GET LOCK ROW NUMBER 

;GET LAST ROW PROCESSED 
;DID IT ROLL UP? 
;YES - UPDATE LINE POINTER 
;N0 - RETURN (Z = FALSE) 
;SAME - FORCE LAST ROW = 

SET CURRENT LINE TO TOP LINE 
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0C89 



0CA1 



56 



MOV D,M 



R0LUP3 - UPDATE LSTLIN AND CURADR 



0C8A 




RLUP3 


EQU 


$ 


0C8A 


EB 




XCHG 




0C8B 




RLUPC 


EQU 


$ 


0C8B 


CDF40A 




CALL 


LTLUP 


0C8E 


EB 




XCHG 




0C8F 


2B 




DCX 


H 


0C90 


22C3FF 




SHLD 


CRADR 


0C93 


EB 




XCHG 




0C94 


AF 




XRA 


A 


0C95 


32C8FF 




STA 


LTCOL 


0C98 


83 




ORA 


E 


0C99 


C9 




RET 










• ***************** 






; NORMAL ROLL-UP * 






; ***************** 


0C9A 




RL080 


EQU 


$ 


0C9A 


2ACBFF 




LHLD 


TPLIN 


0C9D 


B6 




ORA 


M 


0C9E 


C8 




RZ 




0C9F 


1601 




MVI 


D,1 



;SET LSTLIN TO NEW ROW 



/PUT NEW ROW ADDRESS INT H,L 
;SET TO LSB OF NEXT LINE PTR 
;SET CURADR TO TOP LINE 
/RESTORE D,E AND H,L 
;SET LAST COLUMN PROCESSED 

;DONE TO ZERO 
;SET 2-FLA6 FALSE 
/RETURN 



3C 



0CA2 




0CA2 


CDF80E 


0CA5 


21C7FF 


0CA8 




0CA8 


4E 


0CA9 


OD 


OCA A 


FA850C 


OCAD 


71 


OCAE 


B4 


OCAF 


C9 



INR A 
^ ******************* 

; TOP LINE IS NOT LA 

; ADVANCE POINTERS 
******************** 

RLUP1 EQU $ 

CALL TPUPD 
LXI H,LTRQW 



;GET TOP LINE ADDRESS 
;IS TOP LINE LAST LINE? 
;TES - RETURN, DON'T ROLL UP 
/NO - SET D TO INCREMENT 

"TL1N0" 
;SET LSB TO NEXT LINE POINTE 

********* 

ST LINE * 
* 

********* 

; UP DATE TOP LINE POINTERS 
;GET LAST ROW # PROCESSED 



RL090 



EQU 

NOV 

DCR 

JK 

MOV 

ORA 

RET 



$ 
C,M 
C 

RL100 
M,C 
H 



/DECREMENT 

;LINE ROLLED OFF SCREEN 
;STORE UPDATED LSTROW 
;SET Z-FLAG TO FALSE 



; ****************** 

; CHAR SET SELECT * 

****************** 



OCBO 




SHRST 


EQU 


% 


OCBO 


21A724 






LXI 


H,CRSTB 


0CB3 


C3F504 






JMP 


ECAPO 






r 
i 


SET 


NEW 


ALTERNAT 


0CB6 




SHST1 


EQU 


$ 


0CB6 


79 






MOV 


A,C 


0CB7 


E60F 






AN1 


17Q 


0CB9 


07 






RLC 




OCBA 


07 






RLC 




OCBB 


07 






RLC 




OCBC 


07 






RLC 




OCBD 


3272FF 






STA 


CRSET 


OCCO 


C9 






RET 





;SET FOR CHARACTER SET SELEC 



;PUT INPUT CHARACTER IN A-R E 
/EXTRACT CHARACTER SET NUMBE 
/SHIFT TO POSITION FOR 
/ALTERNATE CHARCTER SET 



/STORE CHAR SET SELECT CTL 
/RETURN 
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0CC1 
0CC1 
0CC4 
0CC5 
0CC7 
OCCA 
OCCD 
OCDO 
0CD3 
0CD6 



QCD9 
0CD9 
OCDC 
GCDD 
OCDF 



0CE2 
0CE2 
0CE5 
0CE8 
0CE8 



OCEE 
OCEE 
0CF1 
0CF4 
0CF7 
OCFA 
OCFD 



CD8917 

C8 

3EF7 

CD5113 

CDBCOF 

C2E20C 

21B323 

22D2FF 

C3E20C 



CD8917 
CO 

3E08 
CD7513 



CD1B1E 
CD9019 
CDA21A 
C30507 



CD8917 
CA5720 
CD1B12 
C4C10C 
C25720 
C32B14 



****** ****************** 
SFKYOF - PUT NORMAL DISPLAY ON SCREEN 
ENTRY: DON'T CARE 



SKYOF 



EXIT 

EQU 

CALL 

RZ 

MVI 

CALL 

CALL 

JNZ 

LXI 

SHLD 

JMP 



; ALL REGISTERS DESTROYED 

$ 

CKSFK ;NORMAL DISPLAY ENABLED? 

;YES - RETURN 
A # 377G-DFSKY ;N0 - SWAP DISPLAY 
CCMFL 
CDSPF 

SO010 ;YES - D0N*T RESET RANGE 

H„RABLE ;N0 - RESTORE NORMAL 
RN6TA ;CHARACTER FUNCTION TABLE 

S0010 ;TURN ON NORMAL DISPLAY 



;CLEAR SOFT KEY MODE FLAG 
;DISPLAY FUNCTIONS ENABLED? 

TBL 



****************************************** 

SFKYON - PUT SOFT KEY DISPLAY ON SCREEN * 

************* ***************************** 



ENTRYs DON'T CARE 



EXIT : NZ 



ALL REGISTERS DESTROYED 



SKYON 



EQU $ 

CALL CKSFK 

RNZ 

MVI A,DFSKY 

CALL SCMFL 



EXCHANGE DISPLAY 



S0010 



EQU 

CALL 

CALL 

CALL 

JMP 



$ 

SWAP 

RTDSP 

FDSRX 

RADRA 



;SOFT KEY DEFINE MODE? 
;YES - RETURN 
;N0 - SWAP DISPLAY 
;SET SOFT KEY MODE FLAG 



;SWAP DISPLAY PARAMETERS 
;TURN ON THE DISPLAY 
;RESCAN LINE TO SET PROPER 
;FIELD ATTRIBUTE 



********************************************** 

SFKYDS - DISPLAY CHARACTER IN SOFT KEY MODE * 

********************************************** 

ENTRYr DCHAR = CHARACTER TO BE DISPLAYED 



EXIT 



SKYDS 



IF CHARACTER FROM KEYBOARD, 

CHARACTER IS ADDED TO DISPLAY 
OTHERWISE, NORMAL DISPLAY IS RESTORED 



;SOFT KEY DEFINE MODE? 
;N0 - USE NORMAL ROUTINE 
; INPUT FROM KEYBOARD? 
;N0 - SWAP DISPLAY 

;AND USE NORMAL ROUTINE 
;YES - DISPLAY CHARACTER 



EQU 


$ 


CALL 


CKSFK 


JZ 


DPCHR 


CALL 


DXB2D 


CNZ 


SKYOF 


JNZ 


DPCHR 


JMP 


FESC1 
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0D00 
00 00 
0003 
0004 
0006 
0009 



OOOC 
00 Oc 
OOOF 
OOtO 
0013 
0013 
0014 
0016 

0019 
001A 
001A 

001C 



001F 
0D1F 
0022 
0023 
0024 



002? 
0D27 

002A 



0020 
0020 
0030 
0033 
0035 
0038 
003B 
0O3E 
0041 
0042 
0044 
0045 



CD5115 

F3 

3E01 

3200FF 

C35501 



CD8917 

CO 

3A72FF 

47 

3E0B 
C00870 

78 

060F 

C3921E 



C 0891 7 
CO 
AF 
C31300 



010002 
C32616 



01FFF0 

C0E50F 

06 5C 

C00217 

210817 

C 04800 

21F7FF 

7E 

E6FE 

77 

C39211 



AND KILL "CURAOV" FLA6 



********************** 

SFTRST - SOFT RESET * 
********************** 



STRST 



EQU 

CALL 

01 

MVI 

STA 

JMP 



$ 
IBSYC 

A,1 

RTTMR 

601 



;WAIT UNTIL CTU*S FREE 
;DISABLE INTERRUPTS 
;SET RESET TIMER FOR ONE 

; SECOND ONLY 
;00 SOFT RESET 



; ****** *********** 
; SO - SHIFT OUT * 

;***************** 

SFTOT 



SHFT1 



EQU 


S 


CALL 


CKSFK 


RNZ 




LOA 


CRSET 


EQU 


$ 


MOV 


B,A 


MVI 


A,SCHAR 


CALL 


ZBCTL 


MOV 


A„B 


EQU 


$ 


MVI 


B,17Q 



;DEFINE SOFT KEY MODE? 
;YES - DON'T SWITCH CHAR 
;GET CURRENT ALT CHAR SET 



SET 



SHFT2 



JMP DSPC1 
;**************** 



;PUT NEW CHAR SET IN B-REG 
;SET CHARACTER SWITCH IN 
;KEYBOARD FOR POSSIBLE 
FOREIGN MODE ENABLE 
; RECALL NEW CHARACTER SET 
;ENTRY FOR SELF-TEST 
;SET MASK TO SAVE DISPLAY 

ENHANCEMENT BITS 
;AOD CODE TO DISPLAY 



SFTIN 



SI - SHIFT IN * 

**************** 

EQU $ 

CALL CKSFK 

RNZ 

XRA A 

J MP SHFT1 



DEFINE SOFT KEY MODE? 

DON'T SWITCH CHAR 
BASE CHARACTER 
CODE 



;YES - 

;SET FOR 

;SET 



SET 



BLOCK TRANSFER FOR 



; ************************* ********* 

; STATUS - RETURN TERMINAL STATUS * 
; ********************************** 

SATUS EQU $ 

LXI B # SSTAT 

JMP SLXFO ;FOR TERMINAL STATUS 
; ************************************ 

; STAT60 - TRANSMIT TERMINAL STATUS * 
; ************************************ 

SATGO 



EQU $ 

LXI B,-1-SSTAT 
CALL CBLXF 
MVI B,ACKSL 
CALL ECOUT 
LXI H„XUTDC 
CALL SAPAR 
LXI H„ERFLG 
MOV A # M 
ANI 377Q-DMERR 
MOV M,A 
JMP STERM 



; CLEAR STATUS PENDING FLAG 
;SENO <ESC>-<*> 

;SET OUTPUT ROUTINE ADDRESS 

; OUTPUT STATUS BITS 

;CLEAR DATA COMM ERROR FLAG 



;SEND TERMINATOR AND RETURN 
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i STAPAR - OUTPUT STATUS BITS * 

; ****************************** 







i 


ENTRY: H,L = 






i 


EXIT : CNTFAD 
ALL RE 


0048 
0048 


22CEFF 


SAPAR 


EQU $ 
SHLD CTFAD 






i 
r 


OUTPUT SIZE OF 


004B 
004E 
004F 
0050 


3AABFF 
2F 
3C 
C001QB 


» 




LOA DPBGN 
CMA 
INR A 
CALL PR0T2 






t 
r 


OUTPUT KEYBOAR 


0053 
0056 
0057 
005A 
005B 


3AFBFF 

6F 

C0030B 

7D 

COCFOB 


r 




LOA KJMPR 
MOV L^A 
CALL PR OUT 
MOV A # L 
CALL PR0T4 



H,L = ADORESS OF OUTPUT ROUTINE 



CNTFAO - ADORESS OF OUTPUT 
REGISTERS OESTROYED 



ROUTINE 



;SET OUTPUT ROUTINE VECTOR 



RAM 



+1 ; COMPUTE NUMBER OF 256 -BYTE 
;RAM BLOCKS IN DISPLAY 
;AREA 
;TRANSMIT MEMORY SIZE IN K«S 

INTERFACE STRAP SETTINGS 

;TRANSMIT STRAPS A-D 
;SAVE JUMPER VALUES 

; RECALL JUMPER VALUES 
;TRANSMIT STRAPS E-H 



OUTPUT LATCHING KEYS STATUS 



Q05E 


3AF3FF 


LOA 


MFLG2 


0061 


E607 


ANI 


CPSLK 


0063 


F608 


ORI 


TQQ 


0065 


C0030B 


CALL 


PROUT 



0068 


2A6FFF 


LHLO 


MLGS2 


006B 


7C 


MOV 


A,H 


006C 


E604 


ANI 


STAT2 


006E 


OF 


RRC 




006 F 


OF 


RRC 




0070 


OF 


RRC 




0071 


47 


MOV 


B,A 


0072 


7C 


MOV 


A r H 


0073 


E670 


ANI 


160Q 


0075 


BO 


ORA 


B 


0076 


COCFOB 


CALL 


PR0T4 



;GET TERMINAL MODE FLAGS 2 
+BKMDE+ATOLF ; EXTRACT BITS 

;AO0 BIT 3 TO INDICATE 2645 
;SENO LATCHING KEY STATUS 



OUTPUT TERMINAL (2640) TRANSFER PENDING FLAGS 



;GET TERMINAL MODE FLAGS 
;MASK FOR SECONDARY STATUS 
/256 ;PEN0IN6 BIT 

;SHIFT BIT INTO STATUS 
;RESPONSE POSITION 



;GET OTHER DISPLAY RELATED 
;(SNTER+SCTKY+SRSEN/256> XFR BITS 



;AOD IN SECONDARY STATUS 
;SEND TRANSFER PENDING BITS 



OUTPUT ERROR CONDITION FLAGS 



0D79 


0600 


MVI 


B # 


00 7B 


3A4FFF 


LOA 


ICERR 


007E 


FE46 


CPI 


FX 


0D80 


C2850D 


JNZ 


SA010 


0083 


0620 


MVI 


B^IER 


008 5 


SA010 EQU 


$ 


0D85 


47 


MOV 


B # A 


0D86 


3AF7FF 


LOA 


ERFL6 


0D89 


BO 


ORA 


B 



;SET FOR NO I/O ERROR 
;GET I/O ERROR FLAG 
;I/0 ERROR OCCURRED? 
;N0 - GET OTHER ERROR FLAGS 
RB ;YES - SET 1/0 ERROR BIT 

;SAVE I/O ERROR BIT 

;GET THE ERROR FLAGS 
;MER6E WITH EXISTING BITS 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F IL E 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F ILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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20 
20 
20 
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20 
20 
20 
20 
20 
20 
20 
20 
20 
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20 
20 
20 
2C 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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20 
20 
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0D8A 



CDD30B 



CALL PROUT 



ERRORS = PAGE 69 



;TRANSMIT ERROR STATUS 



OUTPUT DEVICE TRANSFER PENDING FLAGS 



0D8E 


0? 


0D8F 


70 


0D9Q 


17 


0D91 


47 


0092 


7C 


QD93 


OF 


0D94 


OF 


0D95 


OF 


0096 


OF 


0D97 


78 


0D98 


17 


0D99 


C3030B 



A # H 
A,L 
B,A 



MOV 
RLC 
MOV 
RAL 
MOV 
MOV 
RRC 
RRC 
RRC 
RRC 
MOV 
RAL 
JMP PROUT 



;6ET TERMINAL MODE 1 FLAGS 
;PUT I/O DONE FLAG IN C-FLA6 
;6ET TERMNAL MODE 2 FLAGS 

;ADB IN I/O DONE FLAG 
;SAVE TEMPORARY RESULTS 
;RECALL TERMINAL MODE 1 FLAG 
;PUT DEVICE STATUS INTO 

;C-FLAG 



A,e 



^RECALL 
;ADD IN 



ACCUMULATED BITS 
DEVICE STATUS 



;SEND DEVICE XFR PENDING BIT 



• ******************************************** 
; STCHR1 - SET INITIAL DISPLAY CHARACTER IN * 
; NEW DISPLAY BLOCK * 

;******************************************** 



ENTRY: 



EXIT 



H,L = ADDRESS OF FIRST DISPLAY 
IN BLOCK 

A = 

H r L UNCHANGED 



00 9C 




0D9C 


3AF4FF 


0D9F 


E680 


0DA1 


3ECC 


0DA3 


CAAEOD 


0DA6 


2B 


0DA7 


77 


0DA8 


3A2970 


00 A B 


F680 


ODAD 


23 


ODAE 




ODAE 


77 


ODAF 


AF 


ODBO 


C9 



SCHR1 



SC010 



EQU 
LDA 
AN I 
WVI 

JZ 

OCX 

MOV 

LDA 

ORI 

INX 

EQU 

MOV 

XRA 

RET 



$ 

MFLG1 

FORGN 

A # EOL 

SCOtO 

H 

M,A 

FSALT 

200Q 

K 

$ 

M„A 

A 



;GET SOFT MODE FLAGS 
; FOREIGN MODE ENABLED? 

;(SET TO STORE EOL) 
;N0 - STORE EOL ONLY 
;YES - STORE EOL AND DISPLAY 

^CONTROL BYTE TO CAUSE 

; FOREIGN CHARACTER SET TO 

;BE DISPLAYED 



;STORE FIRST DISPLAY CHAR 
;CLEAR A-REGISTER 
;RETURN 



************************************ 

TEST - PERFORM TERMINAL SELF TEST * 

************************************ 



0DB1 


TEST EQU 


$ 


0BB1 


CDC20F 


CALL 


CEDIT 


0DB4 


CO 


RNZ 




0DB5 


3E08 


MVI 


A,CIOKY 


0DB7 


CD0870 


CALL 


ZBCTL 


ODBA 


211128 


LXI 


H # TTCTU 


ODBD 


C27615 


JNZ 


IRMGO 



ODCO 
ODCO 



3AFAFF 



;ED1T MODE ENABLED? 

;YES - DON'T DO SELF-TEST 

;I/0 CONTROL KEY DOWN ALSO? 

;(SET FOR CTU SELF-TEST) 
;YES - DO CTU SELF-TEST 
NO - DO TERMINAL SELF-TEST 



PERFORM TERMINAL SELF-TEST 

;GET KEYBOARD JUMPERS 2 



TMTST EQU $ 

LDA KJMP2 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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0DC3 


E604 


0DC5 


21890E 


0DC8 


C25919 


OBCB 


3A6EFF 


00 CE 


E680 


OODO 


C25919 


0DD3 


CB5115 


0DD6 


F3 


0DD7 


3E05 


0009 


CD0870 



AN I 


NTEST 


LXI 


H^NTSMS 


JNZ 


DPMS1 


LOA 


DFLGS 


AMI 


XF2BS 


JNZ 


0PMS1 


CALL 


IBSVC 


01 




MVI 


A,SRTST 


CALL 


ZBCTL 
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;SELF-TEST INHIBITED 

;CSET MESSAGE AODRESS> 
;YES - DISPLAY MS6 AND EXIT 
;GET OATA TRANSFER FLAGS 
;OATA FROM I/O BUFFER 
;YES - DON'T DO SELF-TEST 
;WAIT UNTIL CTU*S IDLE 
;DISABLE INTERRUPTS 
;SET KEYBOARD FOR SELF-TEST 
;START-UP 



OODC C3DF00 



;********************* 

; ROM TEST * 

; * 

; CALCULATE CHECKSUM * 
; FOR EACH 2K ROM * 

-********************* 

JMP TT199 ; MOD IF. -LXI 
• *********************** 

; DISPLAY TEST PATTERN * 

; *********************** 



H,-NUM2K START ADRESS 



OODF 




TT199 


EQU 


$ 




ODDF 


CD1470 




CALL 


ZBELL 


;SOUND THE BELL 


0DE2 


3EC0 




MVI 


A ,3000 


;SET INITIAL CHARACTER SET 


0DE4 




TT200 


EQU 


$ 




0DE4 


0610 




SUI 


200 


;SET TO NEXT CHARACTER SET 


0DE6 


F5 




PUSH 


PSW 


;SAVE CURRENT ENHANCEMENT 


0DE7 


AF 




XRA 


A 


;SET CHARACTER TO NULL 


00E8 


3268FF 




STA 


TCHAR 




OOEB 




TT220 


EGU 


$ 




ODEB 


C06AtE 




CALL 


CRRET 


;B0 CR 


OOEE 


C0C10A 




CALL 


CNDLF 


;D0 LF IF WRAPAROUND DISABLED 


00 F1 


F1 




POP 


PSW 


;RECALL CURRENT ENHANCEMENT 


0DF2 


F5 




PUSH 


PSW 


;ANO SAVE IT AGAIN 


0DF3 


CB1A0D 




CALL 


SHFT2 


;PUT ENHANCEMENT ON DISPLAY 


0DF6 




TT240 


EQU 


$ 




00F6 


3A68FF 




LDA 


TCHAR 


;GET CURRENT ENHANCEMENT COD 


0DF9 


3289FF 




STA 


DCHAR 


; STORE CHAR FOR DISPLAY 


ODFC 


E607 




ANI 


7 


;EVERY 8 CHARS INSERT 2 BLNKS 


OOFE 


FE04 




CPI 


4 


;TIME TO ADD TWO BLANKS? 


OEOO 


CC781C 




cz 


CRAD2 


;YES - ADVANCE CURSOR TWICE 


0E03 


C05720 




CALL 


DPCHR 


;OISPLAY THE CHARACTER 


0E06 


2168FF 




LXI 


H # TCHAR 




0E09 


34 




INR 


M 


; INCREMENT DISPLAY CHARACTER 


OEOA 


7E 




MOV 


A,M 


;6ET NEW CHARACTER 


OEOB 


FE40 




CPI 


64 




OEOD 


CAEBOD 




JZ 


TT220 


;IF 64 THEN NEW LINE 


0E10 


B7 




ORA 


A 


;ALL CHARACTERS DONE? 


0E11 


F2F60D 




jp 


TT240 


;N0 - CONTINUE 


0E14 


C00D1D 




CALL 


CRLF 


;YES - DOUBLE SPACE BETWEEN 


0E17 


F1 




POP 


PS« 


;CHARACTER SETS 


0E18 


FE80 




CPI 


20 OQ 


;ALL CHARACTER SETS DONE? 


0E1A 


C2E40D 




JNZ 


TT200 


;N0 - CONTINUE DISPLAY 






e 

• ****************************** 






; DISPLAY ENHANCEMENT PATTERN * 






; ****************************** 


0E1D 


F5 




PUSH 


PSW 


;SAVE ENHANCEMENT CODE 


0E1E 


CDC10A 




CALL 


CNDLF 


;D0 LF IF WRAPAROUND DISABLE 


0E21 




TT420 


EQU 


$ 





FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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20 


FILE 


20 


FILE 


20 


FILE 


20 


F I LE 


20 


FILE 


20 
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20 
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20 
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20 
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20 
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20 
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20 
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20 
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20 
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20 
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20 
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20 
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20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 
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0E21 


F1 


POP 


PSW 


0E22 


F5 


PUSH 


PSW 


0E23 


D64Q 


SUI 


100Q 


0E25 


CD5120 


CALL 


DPTST 


0E28 


F1 


POP 


PSW 


0E29 


3C 


INR 


A 


0E2A 


FE90 


CPI 


22 GO 


0E2C 


CA360E 


JZ 


TT440 


0E2F 


F5 


PUSH 


PSW 


0E30 


CD901E 


CALL 


DSPCO 


0E33 


C3210E 


JMP 


TT420 


0E36 


TT440 EQU 


$ 


0E36 


AF 


XRA 


A 


0E37 


CD901E 


CALL 


DSPCO 


0E3A 


CD781C 


CALL 


CRA02 



0E3D 
0E40 
0E41 
0E43 
0E44 
0E47 
0E4A 
0E4D 
0E50 
OE53 



0E56 
0E58 
0E5B 
0E5C 



0E5F 
0E5F 
0E63 
0E67 
0E6B 

0E6F 
QE6F 

0E73 
0E73 

0E77 
0E77 

0E7A 
0E7A 
0E7E 

0E8 2 
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/RECALL CURRENT ENHANCEMENT 
;SAVE ENHANCEMENT AGAIN 
/COMPUTE ASCII DISPLAY CODE 
;DISPLAY THE CHARACTER 
;RECALL CURRENT ENHANCEMENT 
; INCREMENT ENHANCEMENT 
/LAST ENHANCEMENT DONE? 
/YES - DISPLAY STATUS 
;N0 - SAVE ENHANCEMENT CODE 
;ADD ENHANCEMENT TO DISPLAY 
/DISPLAY ASCII DISPLAY CODE 



;RETURN TO NORMAL VIDEO 
/ADVANCE CURSOR TWICE 



• ************************** 

/ DISPLAY TERMINAL STATUS * 
*************************** 



21F7FF 

7E 

F602 

77 

215120 

CD480D 

CD7B1C 

CD7823 

CD0D1D 

CD0D1D 



3E06 
CD0870 
F8 
C3991C 



LXI 

MOV 

ORI 

MOV 

LXI 

CALL 

CALL 

CALL 

CALL 

CALL 



H # ERFLG 

A,M 

TSTOK 

M, A 

H, DPTST 

SAPAR 

CRADV 

SA2G2 

CRLF 

CRLF 



;SET ERROR FLAG TO 

;SELF-TEST SUCCESSFUL 



/SET H,L TO OUTPUT ROUTINE 
/DISPLAY TERMINAL STATUS 
;PUT SPACE BETWEEN STATUS 



/ ********************** 
/ TERMINATE SELF-TEST * 

/ ********************** 



KVI 
CALL 
EI 
JMP 



A,EDTST 
2BCTL 

CADV1 



/RESTORE KEYBOARD LED*S 



/RE-ENABLE INTERRUPTS 
/RESET CURSOR ADVANCE 



FLAG 



42554646 
4552204F 
56455246 
4C4F57CE 



524F4DQ0 



/ ****************** 
/ MESSAGE STORAGE * 

;****************** 

BFMSG EQU $ 

DB # BUFFER 



QVERFLQW^EQP 



RMERR 



EQU 
DB 



•ROM»,0 



RAERR EQU $ 

52414D00 DB »RAM»VO 

IE RMS EQU $ 

492 F4F DB , I/O t 

RXERR EQU S 

20455252 DB • ERROR »,0 
4F522000 

r 

LRMS6 EQU $ 
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FILE 

FILE 
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FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 
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FILE 
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0E82 
0E86 
0E88 
0E88 

0E89 
0E89 
0E8D 

QE91 
0E91 
OE95 
0E99 
0E9D 
0EA1 

0EA2 
0EA2 
0EA6 
OEAA 
OEAE 
0EB2 
0EB5 
0EB9 
OEBD 
0EC1 
0EC4 
0EC8 

OECB 
OECB 
OECF 
0ED3 
0ED7 
OEOB 
OEDE 
0EE2 
0EE6 
QEEA 
OEEE 
0EF2 
0EF6 



4C4F4144 
4552 

CE 



4E4F2054 
455354CE 



4E4F2044 
45564943 
45204452 
49564552 
CE 



42494C44 

53434849 

524D5350 

45494348 

455220 

824E4F43 

48203420 

5A454 94C 

454E20 

46524549 

208 OCE 



824 2494C 

44534348 

49524053 

50454943 

484 552 

20564 F4C 

4C202220 

44415445 

4E534943 

48455255 

4E472022 

80CE 



DB •LOADER* 

EREOP EQU $ 

DB EOF 

NTSMS EQU $ 

DB 'NO TEST»,EOP 



NDRVR EQU $ 

DB *N0 DEVICE DRIVER* # EQP 



YRS03 EQU $ 

DB •BILDSCHIRKSPEICHER » 



DB INVRS,»NOCH 4 ZE1LEN ' 



DB »FREI • # 20QG,EOP 



VMS01 EQU $ 

DB INVRS # *BILDSCH1RMSPEICHER" 



DB ■ VOLL " DATENSICHERUNG "• 



DB 2O0Q # EOP 



************************************ 







; TOPUPD - 


UPDATE T 






;****************** 


0EF8 




TPUPD 


EQU 


$ 


0EF8 


23 




INX 


H 


0EF9 


46 




MOV 


B,M 


OEFA 


4F 




MOV 


C*A 


OEFB 


21A3FF 




LXI 


H # TLINO 


OEFE 


7A 




MOV 


A,D 


OEFF 


B7 




ORA 


A 


OFOO 


CA040F 




JZ 


TP100 


OF 03 


86 




ADD 


M 


0F04 




TP100 


EQU 


$ 


OF 04 


77 




MOV 


M,A 


0F05 




TPUP1 


EQU 


$ 


0F05 


60 




MOV 


H,B 



;PUT THE MSB INTO THE 

;B-REGISTER 
;SAVE TOP LINE'S LSB IN C~RE 
;UPDATE TOP LINE NUMBER 

;IS TLINO TO BE RESET? 

;YES 

;N0 - INCREMENT OR DECREMENT 

;STORE UPDATED TLINO 

;SET NEW TOP LINE POINTER 



FILE 


20 
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20 
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20 
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20 
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20 
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20 


FILE 


20 
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20 


FILE 


20 
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0F06 


69 


MOV 


L,C 


0F07 


22CBFF 


SHLD 


TPLIN 


OFQA 


3AF8FF 


LDA 


CFL&S 


OFOD 


E608 


ANI 


DFSKY 


OFOF 


CO 


RNZ 




0F10 


21FFFF 


LXI 


H # DSP 


0F13 


OB 


DCX 


B 



OFU 
QFI4 
0F16 
0F17 
0F1A 
OFtB 
0F1C 
0F1D 
0F1D 
0F20 
0F20 
0F23 
0F23 
0F24 
0F24 
0F26 
0F29 



0F2A 
0F2A 
0F2D 
0F2E 
0F31 
0F33 



0F36 
0F36 
0F38 
0F3B 
0F3C 
0F3E 
0F3F 
0F41 
0F42 
0F44 
0F45 
0F46 



;GET COMMON FLAGS 
;SQFT KEY DEFINE RODE? 
;YES - DON'T CHANGE SCREEN 

;GET DISPLAY START ADDRESS 
;SET TO FIRST CHAR ADDRESS 



3E60 

F3 

322780 

70 

2B 

71 

3AC0FF 

322780 

FB 

3E02 

328380 

C9 



CD7317 

CO 

3A89FF 

C68F 

C3921E 



E6DF 

2AC3FF 

77 

FE4E 

C8 

FE4C 

C8 

FE54 

C8 

70 

C9 



• ************************************** 

; DISLNK - STORE LINK IN DISPLAY AREA * 
i ************************************** 



ENTRY: B,C = LINK TO BE STORED 

H,L = STORE ADDRESS FOR MSB PART 

EXIT : H*L = LSB OF STORE ADDRESS 
A DESTROYED 
INTERRUPTS ENABLED 



DSLNK 



DSLN1 



DSLN2 



D SLN3 



DSLN4 



; ** 

; t 

;** 

TPS 



• ** 

; s 
;** 

SKC 



EQU 

WVI 

DI 

STA 

MOV 

DCX 

MOV 

EQU 

LDA 

EQU 

STA 

EQU 

EI 

EQU 

MVI 

STA 

RET 



******** 

YPSET - 
******** 
ET EQU 
CALL 
RNZ 
LDA 
ADI 
JMP 
******** 

FKCHK - 
******** 

HK EQU 
ANI 
LHLD 
MOV 
CPI 
RZ 
CPI 
RZ 
CPI 
RZ 
MOV 
RET 



A, DA OFF 

ICRRW 

M,B 

H 

M,C 

$ 

CRROW 

$ 

ICRRW 

$ 

$ 

A,RSTON 

IKBCO 



********* 

SET TYPE 
********* 

S 

CKFMS 

DCHAR 
ALPHA-ZE 

DSPCt 

********* 

SOFT KEY 
********* 

$ 

377Q-40Q 
CRADR 
M„A 

NX 

LX 

TX 

m,b 



;SET TO TURN OFF THE DMA 
^DISABLE INTERRUPTS 
;TURN OFF DMA 
;STORE LINK'S MSB 

;STORE LINK'S MSB 

;SET CURSOR ROW POSITION 

;TURN DMA BACK ON WITH 

^CURRENT CURSOR ROW ADDRES 

;RE~ENABLE INTERRUPTS 
;RE-ENABLE RESET KEY 



;RETURN 

************ 
DEFINITION * 
************ 

;F0RMAT7S0FT KEY DEFINE MODE 

;YES - DO SET TYPE 

;N0 - COMPUTE TYPE DEF INITIO 
RO-6 .-CHARACTER 

;ADD CHARACTER TO DISPLAY 
***************** 

ATTRIBUTE CHECK * 
***************** 



; FORCE 
;RECALL 
;STORE 
;NORMAL 
;YES - 
; LOCAL 
;YES - 
;TRANSM 
;YES - 
;N0 - R 
;ATTR 



INPUT TO 

CHARACTE 
UPPER CAS 
ATTRIBUT 
RETURN SU 
ATTRIBUTE 
RETURN SU 
IT ONLY S 
RETURN SU 
ESTORE OR 
IBUTE AND 



UPPER CASE 
R ADDRESS 
E VALUE 
E SET? 
CCESSFUL 

SET? 
CCESSFUL 
ET? 

CCESSFUL 
IGINAL 

RETURN NZ 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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r 






I 






t 






* 






r 






I 






Y 






r 






i 






r 






r 


0F47 




* 

X 


0F47 


COS 120 




0F4A 




t 

X 


0F4A 


E1 




0F4B 


23 




0F4C 




r 

X 


0F4C 


7E 




0F4D 


B7 




0F4E 


C8 




0F4F 


FECE 




0F51 


CA6C0F 




0F54 


E5 




0F55 


FECC 




0F57 


CA660F 




0F5A 


B7 




0F5B 


F2470F 




0F5E 


0600 




0F60 


CD941E 




0F63 


C34A0F 


* 


0F66 




i 
i 
X 


0F66 


C&QD1D 




0F69 


C34A0F 




0F6C 




X 


0F6C 


CDQD1D 




0F6F 


B4 




0F7O 


C9 





0F71 
0F71 
0F74 
0F77 
0F7A 
0F7D 
0F80 
0F80 



CD8917 
CA800F 
C&1B12 
CA5720 
CDC10C 

210010 



z ***** * ****************** 

XMS2DS - TRANSFER MESSAGE TO NORMAL DISPLAY 

ENTRY: H # L = POINTER TO MESSAGE 

EXIT : A-L DESTROYED 

Z - TERMINATED BY A NULL BYTE 
NZ - TERMINATED BY AN EOP 



DOOO EQU $ 

CALL OPTST 



D010 



S2DS 



EQU $ 
POP H 
INX H 



;DISPLAY ASCII CHARACTER AND 
ADVANCE CURSOR 

; RESTORE H AND L 
;MOVE TO NEXT BYTE 
PROCESS THE NEXT BYTE 



EQU 

MOV 

ORA 

RZ 

CPI 

JZ 

PUSH 

CPI 

JZ 

ORA 

JP 

MVI 

CALL 

JMP 



$ 

A,M 

A 

EOP 

XD030 

H 

EOL 

XD020 

A 

XDOOO 

B,0 

DSPC2 

XD010 



SET THE SOURCE BYTE 

IS IT A NULL BYTE? 

YES - RETURN <Z - TRUE) 

IS IT END OF PAGE FLAG? 

YES - EXIT 

NO - SAVE H,L 

IS IT AN END OF LINE? 

YES - START A NEW LINE 

IS CHARACTER ASCII? 

YES - DISPLAY IT 

NO - FORCE ENHANCEMENT CODE 

;T0 BE STORED AS IS 
60 TO NEXT BYTE 



EOL CODE - TERMINATE THE LINE 



D020 



EQU 

CALL 

JMP 



$ 

CRLF 
XD010 



;PERFORM 
;D0 NEXT 



RETURN 
BYTE 



AND LINE FEE 



EOP CODE - TERMINATE LINE AND EXIT 



XD030 



EQU 


$ 


CALL 


CR 


ORA 


H 


RET 





LF 



;PUT CURSOR IN NEXT LINE 
;SET Z FALSE 

TEMINATED BY EOP 



;RETURN 



; ************* 

; CARRE! - PER 

r ****** ******* 



******************************* 

FORM DISPLAY FUNCTIONS RETURN * 
******************************* 



CARET 



CR010 



EQU 
CALL 
JZ 
CALL 

JZ 

CALL 
ECU 
LXI 



$ 

Ck: 

CRi 

DXI 

DPI 

SK 

$ 

H,CRLF 



SFK 

1 010 

;b2d 

CHR 
YOF 



;SOFT KEY DEFINE MODE? 

;N0 - DO NORMAL PROCESSING 

;DATA FROM KEYBOARD? 

;YES - DISPLAY RETURN CODE 

;N0 - RESTORE NORMAL DISPLAY 

;SET NORMAL ROUTINE EXIT 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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0F83 C35A20 



0F86 
0F86 
0F89 
0F8C 
0F8C 
0F8F 
OF90 
0F93 
0F96 
0F97 



0FA9 
0FA9 
OFAA 
OFAB 
OFAC 



JMP DPCHO 



ERRORS = PAGE 75 



; DISPLAY THE CHARACTER 



; ********** ************************* ************ 
; CHKLIM - CHECK PARAMETER BOUNDARY CONDITIONS * 



* 

r 
t 



* 
i 
r 
i 

t 
r 



ENTRY: B = CURRENT VALUE 

C = MAXIMUM ALLOWABLE VALUE 
D,E = ADDRESS OF PARAMETER TO BE SET 
IODATA = PARAMETER VALUE <2 BYTES) 
I0PS6N = -t, NEGATIVE ADJUSTMENT 
= Q, ABSOLUTE VALUE 
= +1, POSITIVE ADJUSTMENT 

EXIT ; NEW VALUE IN WORD ADDRESSED BY D,E 
A,C,N,L DESTROYED 

THIS ROUTINE SET THE NEW VALUE BY EITHER 
OR ABSOLUTE ADJUST WITHIN6 THE LIMITS OF 
ZERO AND THE MAXIMUM ALLOWABLE AS SPECIFIED 
THE C-REGISTER ON ENTRY 

THE LARGEST MAXIMUM VALUE IS 255 



3ADDFF 
32DCFF 

3ADFFF 

B7 

3ADCFF 

CA9D0F 

87 

F2AC0F 



CKLIO 



CKLIM 



EQU 

LDA 

STA 

EQU 

LDA 

ORA 

LDA 

J 2 

ADD 

JP 



$ 

ICSGN 

IPSGN 

$ 

IDATA+1 

A 

IPSGN 

CKQ50 

A 

CK070 



;SET PARAMETER SIGN TO 
;INPUT SIGN 

;GET MSB OF INPUT VALUE 
; MAXIMUM EXCEEDED? 

;CGET PARAMETER SIGN) 
;N0 - CONTINUE EVALUATION 
;NEGATIVE ADJUSTMENT? 
;N0 - SET TO MAXIMUM VALUE 



DEFAULT TO MINIMUM VALUE CO) 



0F9A 


AF 


0F9B 


t2 


0F9C 


C9 



CK010 



EQU $ 
XRA A 
STAX D 
RET 



;SET TO ZERO 

; STORE NEW VALUE 
;RETURN 



0F9D 




0F9D 


21DEFF 


OFAO 


87 


0FA1 


78 


0FA2 


FAB60F 


0FA5 


C2AF0F 


0FA8 


7E 



; PARAMETER < 256, EVALUATE FOR RELATIVE AMOUNT 

CK050 EQU $ 

LXI H,IDATA ;SET H,L TO GET INPUT VALUE 

ADD A ;RELATIVE POSITIONING? 

MOV A # B ;CLOAD CURRENT VALUE) 

JM CK160 ;MINUS - SUBTRACT INPUT 

JNZ CK150 ;PLUS - ADD INPUT 

MOV A,M ;NONE - ABSOLUTE ASSIGNMENT 

; CHECK UPPER LIMIT + 1 



12 
B9 

D8 



CK060 



CK070 



EQU 


$ 


STAX 


D 


CMP 


C 


RC 




EQU 


$ 



;STORE ASSIGNED VALUE 

;MAXIMUM EXCEEDED? 

;N0 - RETURN 

;YES - USE MAXIMUM VALUE 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


2.0 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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20 
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20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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OFAC 



OFAD 
OFAD 
OFAE 



0FD4 
0FD4 
0FD7 



79 



MOV 



A,C 



12 
C9 



• ************************ 

; STORE PARAMETER VALUE * 
;************************ 
CK1Q0 EQU $ 

STAX D ;STORE PARAMETER VALUE 

RET ;RETURN 



ADD INPUT 







; POSITIVE ADJUSTMENT 


OFAF 




* 

CK150 Eau $ 


OFAF 


86 


add m ;0 


OFBO 


D2A90F 


JNC CK060 ;N 


0FB3 


C3AC0F 


JMP CK07Q ;Y 



0FB6 




0FB6 


96 


0FB7 


DA9A0F 


OFBA 


12 


OFBB 


C9 



OFBC 




OFBC 


3AF4FF 


OFBF 


E601 


0FC1 


C9 



0FC2 




0FC2 


3AF4FF 


0FC5 


E610 


0FC7 


C9 



0FC8 




0FC8 


3A64FF 


OFCB 


E620 


OFCD 


CO 


OFCE 




OFCE 


3AF3FF 


0FD1 


E602 


0FD3 


C8 



^OVERFLOW? 

- USE SPECIFIED VALUE 
;YES - USE MAXIMUM VALUE 



NE6ATIVE ADJUSTMENT - SUBTRACT INPUT 



CK160 



EQU $ 




SUB M 


/UNDERFLOW? 


JC CK010 


;YES - USE ZERO 


STAX D 


;N0 - USE COMPUTED 


RET 


;RETURN 



VALUE 



*********************************************** 

CKDSPF - CHECK FOR DISPLAY FUNCTIONS ENABLED * 
*********************************************** 

CDSPF EQU $ 

LDA MFL61 ;GET SOFT MODE FLAGS 

ANI DPFNC ;MASK FOR DISPLAY FUNCTIONS 

RET ;FLA6 AND RETURN 



; CREDIT - CHECK FOR EDIT MODE ENABLED * 

;*************************************** 

CEDIT EQU $ 

LDA MFL61 ;GET SOFT MODE FLAGS 

ANI EDIT ;MASK FOR EDIT FLAG AND 

RET ; RETURN 

; ************************************** 

; 6TM0DE - DETERMINE MODE OF TERMINAL * 
; Z = TRUE IF CHARACTER MODE * 

; Z = FALSE IF PAGE MODE * 

; ************* ************************* 



GM0D1 



GMODE 



EQU 
LDA 
ANI 
RNZ 
EQU 
LDA 
ANI 
RZ 



$ 

IFLG2 

XS2BF 

$ 
MFLG2 

BKMDE 



;GET I/O FLAGS 

;DISPLAY TO BUFFER TRANSFER? 
;YES - RETURN PAGE MODE 
;N0 - CHECK REAL PAGE MODE 
;6ET TERMINAL MODE FLAGS 2 
; BLOCK MODE ENABLED? 
;N0 - RETURN <Z=TRUE) 



CKLNMD - CHECK LINE MODE 



CLNMD 



3AFBFF 
E608 



EXIT 



EQU 
LDA 
ANI 



Z = TRUE, LINE MODE 

= FALSE, PAGE MODE 
A,L DESTROYED 



KJMPR ;6ET THE STRAP 
PGSTR ;SET Z-FLA6 



SETTINGS 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 
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FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 



OFDA 




C 


OFDA 


3AC2FF 




OFDD 


3C 




QFDE 


€9 


i 


OFDF 




i 

r 

c 


OFBF 


3AF8FF 




OFE2 


E610 




0FE4 


C9 





FILE 20 
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FILE 20 

FILE 20 

FILE 20 

0FD9 C9 RET ;RETURN FILE 20 

FILE 20 

J******************************************* FILE 20 

; CKPROT - CHECK PROTECT STATUS OF CURRENT * FILE 20 

; CURSOR LOCATION * FILE 20 

;******************************************* FILE 20 

CPROT EQU $ FILE 20 

LDA POFLD ;GET PROTECT FLAG FILE 20 

INR A ;SET Z-FLAG C-1 => PROTECTED FILE 20 

RET ;RETURN FILE 20 

***************************************** FILE 20 

CKRMTE - CHECK FOR REMOTE MODE ENABLED * FILE 20 

***************************************** FILE 20 

CRMTE EQU $ FILE 20 

LDA CFLGS ;GET COMMON FLA6S FILE 20 

ANI RMSET ;MASK FOR REMOTE FLAG FILE 20 

RET ;RET (NZ => YES; Z => N0> FILE 20 

; FILE 20 

;********************************************* FILE 20 

; CLBLXF - CLEAR BLOCK TRANSFER PENDING FLAG * FILE 20 

;********************************************* FILE 20 

; FILE 20 

; ENTRY: B = 377B-<FLAG TO CLEAR FROM MFLGS) FILE 20 

; C = 377B-(FLA6 TO CLEAR FROM MFL6S2> FILE 20 

; FILE 20 

; EXIT : H - BASEH FILE 20 

; A,B,L DESTROYED FILE 20 

; FILE 20 

; CLEARS THE SPECIFIED TRANSFER PENDING FLAG FILE 20 

; FROM "MFLGS". IF NO OTHER TRANSFER IS PENDING, FILE 20 

; THEN THE KEYBOARD IS UNLOCKED. OTHERWISE, FILE 20 

; THE NEXT TRANSFER PENDING IS SET UP. FILE 20 

FILE 20 

FILE 20 

;6ET TRANSFER PENDING FLAGS FILE 20 

FILE 20 

;CLEAR FLAG FROM "MFLGS" FILE 20 

FILE 20 

FILE 20 

;CLEAR FLAG FROM "MFL6S2" FILE 20 

FILE 20 

;STORE NEW FLAG VALUES FILE 20 

EC FILE 20 

;ANY MORE TRANSFER PENDING? FILE 20 

;(SET FOR NULL FLAGS SET) FILE 20 

;YES - SET UP NEXT BLOCK XFR FILE 20 

;N0 - RE-ENABLE KEYBOARD FILE 20 

FILE 20 

BLOCK TRANSFER TRIGGER FILE 20 

FILE 20 

FILE 20 

;CLEAR BLOCK TRANSFER TRIGGE FILE 20 

;PERFORM DATACOM CONTROL FILE 20 

;SET C-FLAG TRUE AND FILE 20 

;RETURN FILE 20 

; FILE 20 

;********************************************** FILE 20 

; CLEARS - CLEAR DISPLAY FROM CURSOR POSITION * FILE 20 

;********************************************** FILE 20 

1004 CEARS EQU $ ;CLEAR UNPROTECTED FIELDS FILE 20 



0FE5 




CBLXF 


EQU 


$ 


0FE5 


2A6FFF 






LHLD 


MLGS2 


0FE8 


78 






MOV 


A,B 


0FE9 


A4 






ANA 


H 


OFEA 


67 






MOV 


H,A 


OFEB 


79 






MOV 


A,C 


OFEC 


A5 






ANA 


L 


OFED 


6F 






MOV 


L,A 


OFEE 


226FFF 






SHLD 


MLGS2 


0FF1 


E6 03 






ANI 


SINRY+S 


0FF3 


B4 






ORA 


H 


0FF4 


010000 






LXI 


B,Q 


0FF7 


C22616 






JNZ 


SLXFO 


OFFA 


CDD315 






CALL 


KBEN 






i 


CLRXON - 


CLEAR 6 


OFFD 




CRXON 


EQU 


$ 


OFFD 


3EO0 






MVI 


A,CRTRG 


OFFF 


CDB711 






CALL 


DMCTL 


1002 


37 






STC 




1003 


C9 






RET 
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1004 
1006 
1009 
100C 
100F 
1012 
1013 
1016 
1017 
1018 
1019 
101 A 
101C 
101D 
101E 
1020 
1021 
1024 
1025 
1026 
1027 
1028 
1029 
102A 
102B 
102E 
1031 
1032 



1035 
1035 
1038 
103A 
103B 



103E 
103E 
1041 

1042 
1045 
1046 



1049 
1049 
104C 
1040 
104E 
104E 
1051 



3EFE 

CO E 01 5 

CB7317 

C23E10 

C0BE18 

F8 

2AC9FF 

7E 

B7 

C8 

E5 

3600 

23 

56 

36CE 

5F 

2AACFF 

EB 

23 

23 

23 

73 

23 

72 

2AA1FF 

22ACFF 

E1 

22A1FF 



3AF4FF 
E604 
C8 
C3310B 



F42E07 
F8 

C24910 

04 

C25210 



CD461A 

C8 

1A 

32C5FF 

1B 



MVI 

CALL 

CALL 

JNZ 

CALL 

RM 

LBLD 

MOV 

ORA 

RZ 

POSH 

MVI 

INX 

MOV 

MVI 

MOV 

LHLO 

XCH6 

INX 

INX 

INX 

MOV 

INX 

MOV 

LHLO 

SHLO 

POP 

SHLO 

********** 
MEMORY RE 
CLEAR LOC 

********** 

LKOF EQU 
LOA 
ANI 
RZ 

JMP 



A,377Q-SA 

CROFL 

CKFMS 

CS100 

CEARL 

LTL1N 

A,M 

A 

H 

M^Q 

H 

D,M 

M,EOP 

E^A 

FBLKS 

H 
H 
H 

M,E 
H 

M,D 
LLINE 
FBLKS 
H 

LLINE 
********* 

LEASED * 
K FLAGS * 
********* 

$ 
MFL61 
MMLOK 

WO 010 



COM ;ONLY BY CLEA 
;COMM INPUT FLAG 
;FORMAT/SQFT KEY D 
;YES - CLEAR FIELD 
; CLEAR LINE FROM C 
^RETURN IF LINE NO 
;GET CURRENT LINE 
;6ET THE LSB VALUE 
;NEXT LINE EXIST ( 
;N0 - RETURN 
;YES - ADO SUCCEED 

;T0 FREE BLOCKS 
;SET NEXT LINE POI 
;INOICATE NO NEX 



RING DATA 

EFINE MODE 
S ONLY 
URSOR 
T FOUND 
ADDRESS 

LSB # 0)? 

ING LINES 
LIST 
NTER TO 
T LINE 



;SET D,E TO TOP NEXT LINE 
;GET CURRENT FREE BLOCKS HEA 
;SET PREVIOUS LINE POINTER 
;IN FIRST SUCCEEDING LINE 
;T0 CURRENT FREE BLOCKS 
;HEAD 



;SET FREE BLOCKS HEAD TO 
;CURRENT LAST LINE 

;SET LAST LINE ADDRESS TO 
;CURRENT LINE 



;MEMORY LOCK ENABLED? 

;N0 - RETURN 

;YES - SET LED ON WO/BLINKIN 



******************* 

FORMAT MODE CLEAR 
******************* 

SI 00 EQU $ 

CP RADR4 
RM 

JNZ CS110 
INR B 
JNZ CS130 
******************* 

CURSOR IN PROTECTE 

TAB TO NEXT UNPROT 

******************* 

S110 EQU $ 

CALL FLDSR 

RZ 

LOAX 
CS120 EQU $ 

ST A LTFMT 

OCX D 
******************** 



******************** 

SCREEN FROM CURSOR * 
******************** 

;LOCATE CHAR IF FORMAT MODE 
;RETURN IF NOT FOUND OR IN 

SOFT KEY DEFINE MODE 
;PAST EOL - START AT NEXT FL 
; CURSOR IN UNPROTECTED FIELD 
;YES - CLEAR REST OF FIELD 
************* 

D FIELD * 
ECTED FIELD * 
************* 

; SEARCH TO NEXT FIELD 
;N0 MORE FIELDS - RETURN 
;GET END PROTECT CHARACTER 

;SET LAST FORMAT CODE 
;SKIP OVER "ENDPR" CHAR 
******* 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



FILE 20 
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FILE 20 

FILE 20 

FILE 20 

; CLEAR UNPROTECTED FIELD * FILE 20 

;************************** FILE 20 

1052 CS130 EQU $ FILE 20 

1052 C01E19 CALL CER01 ;CLEAR FIELD FILE 20 

1055 FECE CPI EOP ;TERMINATION AT END OF PAGE? FILE 20 

1057 C8 RZ ;YES - RETURN FILE 20 

;************************************ FILE 20 

; SEARCH FOR NEXT UNPROTECTED FIELD * FILE 20 

;****************************#******* FILE 20 

;ADJUST ADDRESS TO NEXT CHAR FILE 20 

FILE 20 

;ADJUST ADDRESS TO PREV CHAR FILE 20 

FILE 20 

;GET NEXT CHARACTER FILE 20 

;SKIP OVER EOL LINK FILE 20 

;NEW FIELD? FILE 20 

;YES - CLEAR IT FILE 20 

;END OF DISPLAY? FILE 20 

;YES - RETURN FILE 20 

;NON-DISPLAYlNG TERMINATOR? FILE 20 

;YES - DELETE IT FILE 20 

;C0NTINUE SEARCH FILE 20 

; FILE 20 

;************************** FILE 20 

; CLRALL - CLEAR ALL TABS * FILE 20 

;************************** FILE 20 

; FILE 20 

; ENTRY: H = BASEH FILE 20 

; FILE 20 

1070 CRALL EQU $ FILE 20 

1070 2E78 MVI L # HBTBL-BASE ;SET ADDRESS AND NUMBER FILE 20 

1072 1E0A MVI E,HBLEN ;0F BYTES TO BE CLEARED FILE 20 

;*************************************** FILE 20 

; CLRAL1 - SET A REGION OF RAW TO ZERO * FILE 20 

;*************************************** FILE 20 

; FILE 20 

; ENTRY: E = NUMBER OF BYTES IN REGION FILE 20 

; H,L = LOW ADDRESS OF REGION FILE 20 

; FILE 20 

; EXIT : A,E - FILE 20 

; H„L = H,L(ENTRY) + E FILE 20 

; FILE 20 

FILE 20 

;SET A TO ZERO FILE 20 

FILE 20 

;SET BYTE TO ZERO FILE 20 



1058 


1B 




BCX 


D 


1059 




CS200 


E&U 


$ 


1059 


13 




INX 


D 


105A 




CS210 


EQU 


$ 


105A 


CDBBOB 




CALL 


NTCHR 


105D 


C25910 




J HI 


CS200 


1060 


FECI 




CPI 


ENDPR 


1062 


CA4E10 




JZ 


CS120 


1065 


FECE 




CPI 


EOP 


1067 


C8 




RZ 




1068 


FEC4 




CPI 


SPFLG 


106A 


CCB518 




cz 


CRDL2 


106D 


C35A10 




JMP 


CS210 



1074 




CRAL1 


EQU 


$ 


1074 


AF 




XRA 


A 


1075 




CA010 


EQU 


$ 


1075 


77 




MOV 


M„A 


1076 


23 




INX 


H 


1077 


1D 




DCR 


E 


1078 


C27510 




JNZ 


CA010 


107B 


C9 




RET 





^ADVANCE TO NEXT BYTE FILE 20 

;ALL BYTES DONE? FILE 20 

;N0 - DO NEXT BYTE FILE 20 

;YES - RETURN FILE 20 

f FILE 20 

;**************************************** FILE 20 

; CURPHB - HOME DOWN TO FIRST COLUMN OF * FILE 20 

; FIRST LINE BEYOND END OF MEMORY * FILE 20 

;************************■**************** FILE 20 

107C CRPHD EQU $ FILE 20 

107C CD8917 CALL CKSFK ; DEFINE SOFT KEY MODE? FILE 20 

107F CO RNZ ;YES - IGNORE HOME DOWN FILE 20 

1080 CD771E CALL CRPRT ;N0 - RETURN TO LEFT MARGIN FILE 20 

;************************** FILE 20 
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ERRORS 



PAGE 80 



1083 




1083 


3AC7FF 


1086 


FE1? 


1088 


CC5B0C 


108B 


2AC9FF 


108E 


7E 


108F 


B7 


1090 


CA9F10 


1093 


5F 


1094 


U 


1095 


CD880C 


1098 


21C7FF 


109B 


34 


109C 


C38310 



109F 
109F 
10A2 
10A4 
10A7 
10AA 
10AB 
10AB 
10AE 



10AF 
10AF 
10B2 
10B5 
10B7 
10BA 
10BC 
10BE 
10C1 



10C4 
1 0C4 
10C6 
10C9 
10CB 
10CC 



10CF 
10CF 
1001 
10D4 



CDBAOB 

FECC 

3AC7FF 

CAAB10 

3C 

32C0FF 
C9 



3AC1FF 

320BFF 

3E7F 

CD1E05 

2ED9 

36 FF 

21AF24 

C3F304 



0E4F 

11DBFF 

2EC1 

46 

C3F210 



0E17 

11D9FF 

2EC0 



; MOVE CURSOR TO NEXT ROM * 
; ************************** 



HC100 



EQU 

LDA 

CPI 

CZ 

LHLO 

MOV 

ORA 

JZ 

MOV 

INR 

CALL 

LXI 

INR 

JMP 



$ 

LTROW 
MXROW 
RLLOP 
LTLIN 
A,M 
A 

HC200 
E r A 
E 

RLUP2 
H, LTROW 
M 
HC100 



;IS LAST ROW DONE AT BOTTOM? 
;YES - ROLL UP THE DISPLAY 
;6ET CURRENT ROW ADDRESS 
;GET LSB OF NEXT LINE POINTE 
;IS THERE A NEXT ROW? 
;N0 - TERMINATE HOME DOWN 
;YES - SET E TO NEXT LINE 

/POINTER OF NEXT LINE 
;SET "LSTLIN" AND "CURAOR" 

;T0 NEXT LINE 
/INCREMENT LAST ROW DONE 



;****************** 
; LAST LINE FOUND * 
; SET ROW 
: ****************** 



HC200 



HC210 



EQU 

CALL 

CPI 

LDA 

JZ 

INR 

EQU 

STA 

RET 



$ 

NTCHO 

EOL 

LTROW 

HC210 

A 

$ 

CRROW 



;6£T 1ST CHAR OF LAST ROW 
;LAST ROW EMPTY? 

;C6ET LAST ROW POSITION) 
;YES - SET CURRENT ROW = LAS 
;N0 - SET TO NEXT ROW 



/SET CURRENT 
/RETURN 



ROW NUMBER 



;******************************* 

/ CURPOS - CURSOR POSITIONING * 
; INITIAL ENTRY POINT * 

;******************************* 

CRPOS EQU $ 

LDA CRCOL /SET NEW COLUMN DEFAULT TO 

STA NWCOL /CURRENT COLUMN POSITION 

MVI A > 377«-NRWST 

CALL CRMF2 / CLEAR NEW ROW SET FLAG 

MVI L,SRNRW~BASE /PRESET RELATIVE ROW 

MVI M,-1 /PARAMETER TO -1 

LXI H,CPTAB ;SET RANGE TABLE FOR CURSOR 

JMP ECAPA POSITIONING 



-***** 

; NEW 
• ***** 

CRP01 



;***** 

; SCRE 

;***** 

CRP02 



**************************** 

COLUMN POSITION IS DEFINED * 
**************************** 

EQU $ 

MVI C^MXCOL /SET MAXIMUM VALUE AND 
LXI D, NWCOL /PARAMETER TO BE SET 
MVI L r CRCOL-BASE ; M CHKLIM M 
MOV B r M 

JMP CP025 ;EVALUATE THE PARAMETER 
****************** 

EN ROW SPECIFIED * 
****************** 

EQU $ 

MVI C # MXROW ;SET MAXIMUM VALUE 



LXI D^SRNRW 

MVI L,CRROW-BASE 



/PARAMETER TO BE 
/"CHKLIM" 



SET 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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10D6 
1007 



10DA 
10DA 
1QDD 
10DE 
10E1 
10E3 
10E6 
10E8 
10EB 
10EE 
10F0 
10F1 
10F2 
10F2 
10F5 
10F5 
10F8 
10FA 



10FD 
1100 
1101 
1104 



1107 
1107 



1100 
1100 
1110 
1113 



1114 
1116 
1118 



46 
C3F210 



3A6BFF 

B7 

C2F510 

3E80 

C09516 

OEFF 

11DAFF 

3AC0FF 

2EA3 

86 

47 

C0860F 

3A88FF 

E620 

C2FB04 



3AD9FF 
B7 

FA0711 
32C0FF 



FC1B11 



110A 3A0BFF 



32C1FF 
C 06907 
C8 



2E89 
3620 
C3E51F 



MOV 
JMP 
********** 
NEW ROW P 
********** 
RP03 EQU 
LOA 
ORA 
JNZ 
MVI 
CALt 
MVI 
LXI 
LOA 
MVI 
AOO 
MOV 
EQU 
CALL 
EQU 
LOA 
ANI 
JNZ 



P025 

P050 



B # M 

CP025 ; 

********** 

OSITION IS 
********** 

$ 

MIC ROW 

A 

CP050 

A,NRWST 

STMF2 

C,255 

0,NWROW 

CRROW 

L,TLINO 

M 

B,A 

$ 

CKLIO 

$ 

CHAR 

400 

ECAPB 



EVALUATE THE PARAMETER 
********** 
OEFINEO * 
********** 

;6ET MEMORY LOCK ROW 
;MEMORY LOCK ENABLED? 
;YES - IGNORE PARAMETER 
;N0 - SET NEW ROW SET 

;FLA6 
;SET MAXIMUM VALUE AND 

;PARAMETER TO BE SET 
; COMPUTE CURRENT ABSOLUTE 

;ROW ADORESS 

;PUT IT INTO B-REGISTER 

;EVALUATE INPUT PARAMETER 

;RECALL THE INPUT CHARACTER 
;IS IT AN UPPER CASE CHAR? 
;NG - CONTINUE ESC SEQUENCE 
YES - POSITION CURSOR 



***************************** 

EXECUTE COMPLETED SEQUENCE * 
***************************** 



LOA 


SRNRW 


ORA 


A 


JM 


CP2 00 


STA 


CRROW 



:GET 



;WAS 



SCREEN 
SCREEN 



ROW PARAMETER 
ROW AOORESS SET? 
;N0 - SET ABSOLUTE ROW AOOR 
;YES - SET NEW SCREEN ROW 



*************************** 

SET ABSOLUTE ROW AOORESS * 
*************************** 

P200 EQU $ 

CM CP500 ;FIND LOCATION OF 



NEW ROW 



SET COLUMN AODRESS 



111B 



LOA NWCOL 
******************* 

LOCATE AOORESS OF 
******************* 

RP04 EQU $ 

STA CRCOL 
CALL RADDR 
RZ 

************* ** **** 

CHARACTER NOT CURR 

BUILD LINE OVER TO 
******************* 

MVI L^OCHAR 
MVI M,ABLNK 
JMP DSPLO 



;GET NEW COLUMN AOORESS 

*********** 

CHARACTER * 
*********** 

;STORE NEW COLUMN ADDRESS 
;FIND CHARACTER 
;CHARACTER FOUND - RETURN 
*************** 

ENTLY STORED * 

NEW POSITION * 

*************** 

;SET UP BLANK FOR NEW POS, 
; BUILD BLOCKS 



*********************************** 

LOCATE NEW ABSOLUTE ROW LOCATION * 
*********************************** 

P5 00 EQU $ 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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111B 
111E 
1120 
1121 
1124 
1126 
1127 
1129 
112C 
112E 
112F 



1130 
1132 
1134 
1134 
1137 
1138 
1139 
113A 
113B 
113C 
113F 
1140 
1143 



1146 
1146 
1148 
114B 



114E 
114E 
1150 
1153 
1153 
1156 

1159 
1159 
115C 
115F 
1161 
1164 
1166 



1169 
116C 



3A6FFF 

E680 

C8 

3ADAFF 

2EA3 

96 

2EC0 

DAESOB 

FEU 

77 

08 



3617 

D617 

CDA10B 

7E 

91 

C8 

77 

AF 

CD6C07 

CO 

3A83FF 

C33411 



3E04 

CD9516 

C35311 



3EFB 
CD1E05 

010010 
C32616 



01FFEF 

C0E50F 

0626 

C00217 

3E61 

CD0817 



210817 
3AC1FF 



LDA 

ANI 

RZ 

LDA 

MVI 

SUB 

MVI 

JC 

CPI 

MOV 

RC 



ML6S2 
NRWST 

NWROW 
L^TLINO 

L # CRROW 
PVP61 
MXROW+1 
M # A 
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;6ET TERMINAL MODE FLAGS 
;NEW ABSOLUTE ROy SET? 
;N0 - RETURN 
;GET NEW ROW VALUE 
;SUBTRACT ROW CORRESP. 
;T0 TOP OF PAGE 

;L0CATE PREVIOUS ROW PAGE 



;SET NEW ROW 

; RETURN IF SAME 



PAGE 



; **** 

; ROW 
; ROL 



************************** 
IS AFTER BOTTOM OF PAGE * 
L DISPLAY UP * 

****************************** 



MVI M,MXROW 
SUI MX ROW 
SR010 EQU $ 

CALL NTPG1 

MOV A,M 

SUB C 

RZ 

MOV M^A 

XRA A 

CALL RADRO 

RNZ 

LDA NROLL 

J MP SR010 



;SET ROW 

;SET ROLL COUNT 

;ROLL DISPLAY UP 

;6ET NUMBER OF ROWS TO ROLL 
;SUBTRACT ROWS ROLLED 
; RETURN IF ROLL COMPLETE 

;SAVE NUMBER OF ROW TO ROLL 
;(SET TO FIND COLUMN 0) 

;BUILD NEW ROWS 
;RETURN IF OUT OF MEMORY 

;GET » OF ROWS TO ROLL 

;R0LL AGAIN 



********************************* 

CURSEN - CURSOR POSITION SENSE * 
***************************** 



• **** 



RLCRSN - SCREEN RELATIVE CURSOR SENSE 

CRSN EQU S 

MVI A,RLSNS ;SET RELATIVE SENSE FLAG 

CALL STMF2 

JMP CR100 ;60 SET CURSOR SENSE FLAG 



CURSEN 



CRSEN 



CR100 



CSNGO 



EQU 

MVI 

CALL 

EQU 

LXI 

JMP 



ABSOLUTE CURSOR SENSE 



A,377Q-RLSNS 

CRMF2 ;CLEAR RELATIVE SENSE FLAG 

$ 

B,SRSEN ;SET UP BLOCK TRANSFER 



SLXFO 



FOR CURSOR SENSE PENDING 



EQU 

LXI 

CALL 

MVI 

CALL 

KVI 

CALL 



; CLEAR CURSOR SENSE 
; PENDING FLAG 
;SEND <ESC>-<&> 

;TRANSMIT LOWER CASE A 



B,-1-SRSEN 

CBLXF 

B,APSND 

ECOUT 

A,SALLA 

XUTDC 
*********************** 

OUTPUT CURSOR COLUMN * 
*********************** 

LXI H, XUTDC ;SEND NUMBER 
LDA CRCOL ;GET CURRENT 



TO DATA 
CURSOR 



COKM 
COLUMN 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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116F 
1172 
1174 



1177 
117A 
117C 
117F 
1181 
1184 
1187 
1188 



118A 
118A 
118B 
118E 
118F 



1192 
1192 
1195 
1195 
1198 
119A 



11A9 
11A9 
11AC 
11AD 



CD7B08 

3E63 

CD0817 



3A6FFF 

E604 

3AC0FF 

0659 

C28A11 

21A3FF 

86 

0652 



C5 

CD7E08 
F1 
C00817 



CD5216 

CDFDQF 

3E07 

C3B711 



CD6591 

F1 

C32678 



CALL B2 

MVI A, 

CALL XU 

;************* 

; OUTPUT CUR SO 

* ************* 

LDA ML 



AN I 
LDA 
MVI 
JNZ 
LXI 
ADD 
HVI 



RL 
CR 
B, 
CR 

H, 

M 



************** 
; TRANSMIT ROW 
************** 



A = ROW VAL 
B = ROW PAR 



DE1 

ALCC 

TDC 

****** 

R ROW 
****** 

GS2 

SNS 
ROW 
YX 
200 
TL I NO 

RX 
****** 

PA RAM 
****** 

UE 
AMETER 



ERRORS = PA6E 83 



^CONVERT AND TRANSMIT VALUE 
;TRANSMIT LOWER CASE C 

* 
* 
* 

;6ET TERMINAL MODE FLAGS 
•SCREEN RELATIVE SENSING? 
;€6ET CURSOR ROW NUMBER) 
;(SET DEFAULT PARAMETER) 
;YES - OUTPUT SCREEN ADDRESS 
;N0 - COMPUTE ABSOLUTE 

;ROW NUMBER 
;SET ABSOLUTE PARAMETER CHAR 
****** 

ETER * 
****** 



LETTER 



CR2 0G 



EQU 

PUSH 

CALL 

POP 

CALL 



; ********** 

; SDTERM - 
; RS IF PAG 

;********** 



STERM 



STER1 



EQU 

CALL 

EQU 

CALL 

MVI 

JMP 



$ 

B ;SAVE ROW PARAMETER LETTER 

B2DE2 ;CONVERT AND TRANSMIT VALUE 
PSW ;RECALL ROW PARAMETER LETTER 
XUTDC ;TRANSMIT ROW PARAMETER CHAR 
FALL INTO "SDTERM" 
************************** 

SEND BLOCK TERMINATOR * 

E MODE, OTHERWISE CR(LF) * 

************************** 

S 

STRM1 ;SEND TERMINATOR 

$ 

CRXON ;CLEAR BLOCK TERMINATOR 

A,EDBLK ;TELL DATA COMM THAT LAST 

DMCTL CHARACTER IN BLOCK IS OUT 



119D 




DC2G0 


EQU 


119D 


2170FF 




LXI 


11A0 


7E 




MOV 


11A1 


E6FE 




AN I 


11A3 


77 




MOV 


11A4 


3E0D 




MVI 


11A6 


C3B711 




JMP 



DC2 PENDING FLAG 



DC2G0 - OUTPUT DC 2 



H,MFLGS 

A,M ;CLEAR 

-1-SDC2/256 

M,A 

A,POMPT ;TELL DATA COMM ROUTINE 
DMCTL ;SEND PROMPT CODE 
; *************************************** 

; DCMINT - DATA COMM INTERRUPT ROUTINE * 
**************************************** 



TO 



ENTRY: 



PSW 
A = 



"PUSHED" 
INTERRUPT 



CODE 



DMINT 



EQU $ 
CALL ITVEC 
POP PSW 
JMP ZCINT 



;CHECK ALTERNATE INTERRUPT 
;RESTORE PSW AND A-RE61STER 
;EXECUTE NORMAL DATA COMM 
INTERRUPT ROUTINE 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F ILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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11B0 
1tB0 
11B2 



11B5 
11B5 



11B7 
11B7 
11B8 
11BB 
11BE 
11BF 
11C0 

11C1 
11C1 
11C2 
11C2 
11C5 
11C6 
11C6 



11C9 
11C9 
11CC 
11CE 

11D1 
11D1 
11D4 



• ********************************** 

; BRKDC - EXECUTE DATA COMM BREAK * 

• ************* ********************* 



BRKOC 



3E05 
C3B711 



3E06 



F5 

CDDFOF 

C2C111 

F1 

3C 

C9 



F1 

CD1178 
00 

CA1470 



CD5819 

3E04 

CD7513 



C0240F 
C3D111 



EQU 
MVI 
JMP 



$ 

A^PTBRK 

DMCTL 



; EXECUTE DATACOM BREAK 
; CONTROL 



; DISMDM - DISCONNECT MODEM 

DSMDM EQU $ 

MVI A,DSCNT ;EXECUTE MODEM DISCONNECT 

; ********************************************** 

; DCMCTL - PERFORM DATA COMM CONTROL FUNCTION * 
- ********************************************** 



* 





ENTRY: A = FUNCTION TYPE NUMBER 

EXIT : Z - FUNCTION PERFORMED 

NZ - FUNCTION NOT PERFORMED 



DWCTL 



DC010 
DMCT1 

DCERR 



EQU 

PUSH 

CALL 

JNZ 

POP 

INR 

RET 

EQU 

POP 

EQU 

CALL 

RNC 

EQU 

JZ 



$ 

PSW 

CRMTE 

DCOtO 

PSW 

A 



$ 

PSW 
% 
ZCCTL 

$ 

ZBELL 



;SAVE A-REGISTER 
;REMOTE MODE ENABLED? 
;YES - PERFORM FUNCTION 
;N0 - RESTORE A-REGISTER 
;FORCE NZ 
; RETURN 



RESTORE A-REGISTER 
ENTRY TO FORCE DATA COMM CT 
EXECUTE FUNCTION 
SUCCESSFUL - RETURN 
PROCESS DATA COMM ERROR 
NOT FATAL - SOUND BELL 



; ***************************** 

; DISPLAY TEST FAIL MESSAGES * 
****************************** 



H NG UO 



H601Q 



EQU 
CALL 
MVI 
CALL 

EQU 

CALL 

JMP 



$ 

DPMSO 
A,FCRST 
SCMFL 

$ 

DSLN4 

H6010 



;DISPLAY THE ERROR 
;SET TO FORCE FULL 
;IF RESET KEY HIT 



MESSAGE 
RESET 



; RE-ENABLE RESET ONLY 

;MANG TERMINAL 
************************* 

* RESET KEY MUST BE HIT * 

* TO RESTORE TERMINAL * 

* OPERATION * 
************************* 



******************************************* 

DCNUM - ACCUMULATE PARAMETER FOR ESC SEQ * 
******************************************* 



EXIT : Z TRUE 



11D7 



DCNUM EQU $ 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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20 
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FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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11D7 
11DA 
11DB 
11DC 
11DF 
11E1 
11 El 
11E4 
11E6 
11E7 
11E9 
11EC 
11EF 

11FO 
11F0 
11F1 
11F2 
11F5 
11F8 



11FB 
11FB 
11FD 



1200 
1200 
1202 
1202 
1205 
1206 
1207 
120A 
120B 



120E 
120E 
1211 
1212 
1215 
1218 



21DDFF 

7E 

B7 

C2E111 

3680 

3A88FF 

0630 

5F 

1600 

3AD4FF 

2A0EFF 

EB 



19 

3D 

C2F011 

22DEFF 

C30305 



0601 
C 3021 2 



06FF 

21DDFF 

7E 

B7 

C20905 

70 

C30305 



CDDFQF 
C8 

CD1478 
DAC911 
C35 919 



DN005 



LXI 

MOV 

ORA 

JNZ 

MVI 

EQU 

LDA 

SUI 

MOV 

MVI 

LDA 

LHLD 

XCHG 
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H,ICSGN ;GET THE CURRENT SIGN 

A # M ;VALUE 

A -HAS ANY SIGN BEEN SET? 

DN005 ;YES - BON*T CHANGE IT 

M,NSIGN ;N0 - SET NO SIGN FLAG 

$ 

CHAR ;6ET INPUT CHARACTER 

ZERO ;EXTRACT BINARY VALUE 

E,A ;PUT VALUE IN E-RE6ISTER 

D,0 ;SET MSB TO ZERO 

RADIX ;GET RADIX OF NUMBER 

IDATA ;6ET ACCUMULATOR 

;PUT ACCUMULATOR IN D,E 



DN010 



EQU $ 

DAD D 

DCR A 

JNZ DNI 

SHLD ID, 

JMP EC, 



ACCUMULATE NEW VALUE 
;RADIX ADJUSTMENT COMPLETED? 
010 ;N0 - CONTINUE ADDING 
ATA ;YES - STORE NEW VALUE 
API ;C0NTINUE ESCAPE SEQUENCE 
******************************* 

; DCPLUS - PLUS SIGN RECEIVED FOR PARAMETER * 
******************************* 



; ************* 



DPLUS 



EQU $ 
MVI B, 
JMP DM 



DMNUS 
DM010 



DCMNUS - MIN 
************* 

EQU £ 

MVI B # -1 

EQU $ 

LXI H,ICSGN 

MOV A,M 

ORA A 

JNZ ECEND 

MOV M # B 

JMP ECAP1 



1 ;SET B-REG TO SIGN VALUE 
010 ;SET SIGN FLAG 
******************************** 
US SIGN RECEIVED FOR PARAMETER * 
******************************** 



;6ET CURRENT SIGN VALUE 

;SIGN SET ALREADY? 
;YES - ABORT ESCAPE SEQUENCE 
;N0 - SET SI6N VALUE 
;CONTINUE ESCAPE SEQUENCE 



; ************* 

; DCTEST - EXE 
; ************* 

DTEST 



EQU 


$ 


CALL 


CRMTE 


RZ 




CALL 


ZCTST 


JC 


HN6U0 


JMP 


DPMS1 



- ************* 
; DCXB2D - SEE 
; DATA COMM 

- ************* 



************************** 

CUTE DATA COMM SELF-TEST * 
************************** 

; REMOTE MODE ENABLED? 
;N0 - DON'T DO SELF-TEST 
;CALL DATA COMM SELF-TEST 
;HANG TERMINAL IF FATAL ERRO 
; DISPLAY MESSAGE AND EXIT 
IF SELF-TEST SUCCESSFUL 
**************************** 

IF SOURCE OF CHARACTER IS * 
OR I/O BUFFER * 

**************************** 



EXIT : Z - INPUT IS NOT FROM DATA COMM OR I/O 
NZ - INPUT IS FROM DATA COMM OR I/O 
A DESTROYED 



121B 
121B 



DXB2D 



3A6EFF 



EQU 
LDA 



$ 
DFL6S 



;GET DATA TRANSFER FLAGS 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 



8080 MACRO ASSEMBLER, VER 2.4 



121E 
1220 



1221 
1221 
1223 

1226 



1228 
1228 
122A 
122C 
122F 

1231 
1231 
1232 
1235 
1235 
1236 
1239 
123B 
123E 
123F 
1242 



1243 
1243 
1246 
1247 
1249 
124C 



124D 
1240 
124F 
1252 
1255 
1258 
125A 
125D 
1260 
1263 
1266 
1268 
126B 
126E 
1271 



E681 
C9 



3E18 

CD200F 

2E64 



3E80 
D37G 
3AF5FF 

D37Q 



AF 
32F6FF 

76 

3AF6FF 

FE03 

C23512 

20 

C23112 

C9 



3ADEFF 

47 

3E0C 

C0B711 

CO 



3E08 

C00870 

C20E12 

3AF8FF 

E610 

1160FF 

CA6F15 

010040 

3AF3FF 

E602 

CA8312 

C08917 

C29712 

3AFAFF 



AMI 
RET 
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SACOM+XF2DS ;SET Z-FLAG 
; RETURN 



** *********** 

DELAY© - PAU 
************* 

DLAYO EQU $ 
MVI A, 
CALL OS 
MVI L, 

; ************* 

; DELAY - DELA 

; TIMES COUNT 
************* 

EQU $ 

MVI A, 

OUT PO 

LDA PC 

OUT PO 



DELAY 



***************** 
SE FOR 1 SECOND * 
***************** 

MXROW+1 ; REMOVE CURSOR AND 
LN2 ; RE-ENABLE RESET KEY 
100 ;DELAY FOR 1 SECOND 
******************* 

Y 10 MILLISECONDS * 

IN L * 

******************* 



STROM 
CSR 
CTL 
CSR 



DY010 



DY020 



EQU 
XRA 
STA 
EQU 
HLT 
LDA 
CPI 
JNZ 
OCR 
JNZ 
RET 



$ 
A 

ITFL6 
$ 

ITFL6 
TRINT 
0Y020 

L 

DY010 



;RES£T THE TIMER 
;RESTORE PROCESSOR STATE 



;CLEAR THE INTERRUPT FLAG 



;SLEEP UNTIL INTERRUPTED 

;GET INTERRUPT FLAG 

;TIMER INTERRUPT? 

;N0 - CONTINUE WAITING 
;EN0U6H TIMER INTERRUPTS? 
;N0 - CONTINUE TIMING 

;YES - RETURN 



; <F> 

;**** 

SDCD2 



*********************** 

- SEND FUNCTION DATA * 
*********************** 



EQU 

LDA 

MOW 

MVI 

CALL 

RNZ 



% 

ID ATA 
B,A 

A,SDFCT 
OMCTL 



r 
;**** 

; DIS 
DSEND 



;GET ACCUMULATED VALUE 
;PUT CODE INTO BH3EGISTER 
;SET DATA COMM CONTROL CODE 
;PERFORM FUNCTION 
;EXIT IF FUNCTION NOT DONE 
OTHERWISE, SEND SCREEN DATA 



*********** 
PLAY SEND * 
*********** 



EQU 

MVI 

CALL 

JNZ 

LDA 

AN I 

LXI 

JZ 

LXI 

LDA 

ANI 

JZ 

CALL 

JNZ 

LDA 



$ 

A, CI OK Y 

ZBCTL 

OTEST 

CFLGS 

RMSET 



;I/0 
;YES 
;GET 



CONTROL KEY DOWN ALSO? 
- 00 DATA COMM SELF-TES 
COMMON FLAGS 



REMOTE 



D,RKYCD-£TRCD*2 

IKEYS 

B,SNTER 

MFLG2 

BKMDE 

OS 200 

CKSFK 

DP220 

KJMP2 ;YES 



ENABLED? 
;(SET KEY INDEX) 
;N0 - PERFORM RECORD COMMAND 
;YES - SET XFR PENDING FLAG 
;N0 - GET TERMINAL MODE FLAG 
; BLOCK MODE ENABLED? 
;N0 - DO CHARACTER MODE STAR 
;SOFT KEY MODE? 
;YES - DON'T SET TERMINATOR 



GET KEYBOARD JUMPERS 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2C 
20 
20 
20 
20 
20 
20 
2Q 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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1274 
1276 
1279 

127C 



127D 
127D 
1280 



1283 
1283 
1286 
1288 
128A 

128D 
1290 
1290 
1293 
1294 



1297 
1297 
129 A 
129f> 
129F 
12A0 
12A3 



12A6 
12A6 
12A9 
12AC 
12AD 



E601 

CA9712 

CDCD16 

C8 



010040 
C33116 



3AFBFF 
E6C0 
EE40 
C49804 

C02916 

CO 731 7 

CO 

C37A1E 



CD3116 

3A70FF 

E601 

CO 

CDD40F 

CA9012 



CD3B17 
CD7317 
CO 
C37A1E 



ANI ATTRK 
JZ DP220 
CALL SATRM 



** 
F 



r 

# 

i 
;** 

DS1 



;AUTO TERMINATE ENABLED? 
;N0 - DO DON»T MOVE CURSOR 
;YES - SET NON-DISPLAYING 
TERMINATOR 
RZ ; EX IT IF NOT SUCCESSFUL 

*************************************** 

IRST TRANSMIT CHARACTER LOCATED - SET * 

TRANSFER PENDING FLAG * 

*************************************** 

00 EQU $ 

LXI B^SNTER ;SET B^C XFR PENDING FLAG 
•IMP SLXF1 ;FOR BLOCK MODE TRANSFER 



; ****************************************** 
; AUTO TERMINATOR JUMPER NOT REMOVED - DO * 
; NORMAL DATA ENTRY FROM DISPLAY * 

;****************************************** 

DS200 EQU $ 

LDA KJMPR ;GET KEYBOARD JUMPERS 1 

ANI HDSHK+D2SND 

XRI BDSHK ;HANDSHAKE ENABLED? 

CNZ CKCT1 ;N0 - SET BLOCK TRIGGER 



CALL SLXFA 

DS215 EQU $ 

CALL CKFMS 

RNZ 

J MP CRET1 



;SET TRANSFER PENDING FLAG 

;FORMAT/SOFT KEY DEFINE MODE 
;YES - DON'T MOVE CURSOR 
;N0 - PUT CURSOR AT BESINNIN 
OF LINE <A = 0) 



SET KEYBOARD BLOCK TRANSFER 



DP220 



EQU 

CALL 

LDA 

ANI 

RNZ 

CALL 

JZ 



$ 

SLXF1 
MFLGS 
SDC2/256 



;***** 

; DPSE 

;***** 
DSEN1 



CLNMD 

DS215 

************** 

N1 - HOME CURS 
************** 

EQU $ 

CALL X0BME 

CALL CKFMS 

RNZ 

JMP CRET1 



;SET BLOCK MODE XFR PENDING 

;6ET TRANSFER PENDING FLAGS 

;DC2 TO BE SENT? 

;YES - DON'T MOVE CURSOR 

;LINE MODE? 

;YES - SET CURSOR IN LINE 
********************* 
OR FOR TRANSMISSION * 
********************* 



;HOME CURSOR 
; FORMAT/SOFT KEY 
;YES - RETURN 
;N0 - SET CURSOR 



DEFINE MODE 



TO COLUMN 



12B0 
12B0 



# 
t 

m 



# 
r 
i 

r 
i 
r 
r 



CDD922 



************************ 
DPSGO - SEND DISPLAY TO DATACOM 

ENTRY: CURCOL,CURRGW SET TO STARTING 
LOCATION 

EXIT : ALL REGISTERS DESTROYED 

;INIT DISPLAY GET ROUTINE 



DPSGO EQU $ 

CALL IITD.6 



F IL E 


2C 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 
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FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


F ILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


F I L E 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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12B3 
12B6 
12B8 
12B8 
12BB 
12BD 
12C0 



12C3 
12C3 
12C6 
12C9 
12CC 
12CF 



12EB 
12EB 
12ED 
12F0 
12F3 
12F6 
12F9 
12FC 



12FF 
12FF 
1302 
1305 
1308 
130B 



130E 
130E 
1311 
1314 
1317 
1319 



C2FF12 

3EFF 

326DFF 

3E0D 
C DO 870 
DC0817 



CD6921 
DA0212 
C00817 
D2C312 
C32613 



12B2 




12D2 


FAFF12 


1205 


47 


1206 


CDCEOF 


1209 


CA0E13 


12DC 


CD7817 


12DF 


CAEB12 


12E2 


3AQ378 


12E5 


CD0817 


12E8 


C3BB12 



3E00 

C B08 17 

CD6616 

CD 891 7 

CCC70A 

CD100F 

C3BB12 



3A0478 
C&0817 
CDCEOF 
CA1C13 
C31F13 



CD7317 

C21C13 

3AF3FF 

E604 

C4C70A 



D6010 



JNZ 


&6 200 


MVI 


A^SPXFR 


STA 


TMFCT 


EQU 


$ 


MVI 


A,SCHST 


CALL 


ZBCTL 


CC 


XUTDC 
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;TER«INATE IF NO CHARACTERS 
;SET TERMINATOR FUNCTION TO 
;TERMINATE TRANSFER 

;SET CHARACTER SET FOR 

^FOREIGN TERMINALS? 
;YES - OUTPUT SI /SO 



OUTPUT CHARACTERS FROM DISPLAY 



DG020 



EQU 

CALL 

JC 

CALL 

JNC 

J MP 



$ 

GTBSP 

D6100 

XUTDC 

DG020 

06 230 



;ANY CHARACTER? 
;N0 - CHECK TERMINATION 
;YES - TRANSMIT THE CHARACTE 
^CONTINUE IF NO DATA COMM ER 
;ELSE, TERMINATE OUTPUT 



NON-CHARACTER FOUND - CHECK TERMINATION 



DG100 



EQU 

JM 

MOV 

CALL 

JZ 

CALL 

JZ 

LDA 

CALL 

J MP 



$ 

BG200 

B,A 

GMOBE 

DG210 

CK FMT 

DG110 

RCSEP 

XUTDC 

D6 010 



;END OF DISPLAY - TERMINATE 

;SAVE EXIT STATUS 

;PAGE MODE ENABLED? 

;N0 - END WITH CR(LF) 

i FORMAT MODE? 

;N0 - SEND CR AND LF 

;YES - END WITH RECORD 

;SEPARATOR 
; CONTINUE THRU DISPLAY 



EOL FOR NON-FORMAT PAGE MODE - SEND CR AND LF 



DG110 EQU $ 

MVI A,CR ;SEND RETURN 

CALL XUTDC ;AND 

CALL STRM3 ;LINE FEED 

CALL CKSFK ;SOFT KEY DEFINE MODE? 

CZ LFEED ;N0 - DO LINE FEED 

CALL DSLN1 ;SET DISPLAY CURSOR ROW 

JKP DG010 ;CONTINUE THRU DISPLAY 



END OF DISPLAY - SEND TERMINATOR 



DG200 



; ***** 
; NON- 

;***** 

DG210 



***** 



EQU 
LDA 
CALL 
CALL 
JZ 
JMP 
***** 

PAGE 

***** 

EQU 
CALL 
JNZ 
LDA 
ANI 
CNZ 
***** 



$ 

BKTRM 
XUTDC 
GMODE 
DG220 
DG225 
******** 

MODE TER 
******** 

$ 

CKFMS 
DG220 
MFLG2 
ATOLF 
LFEED 
******** 



;SEND BLOCK TERMINATOR 

; CHARACTER 
;PA6E MODE? 
;N0 - SEND CR(LF) 
;YES - CLEAR XFR PENDING 
************************ 

MINATION - SEND CR(LF) * 
************************ 

;FOR«AT/SOFT KEY MODE? 
;YES - DON'T DO LINE FEED 
;N0 - GET SOFT MODE FLAGS 
;AUTO LINE FEED ENABLED? 
;YES - DO LINE FEED 
******* 



FLA 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



131C 




DG220 


EQU 


$ 


131C 


CD5216 




CALL 


STRM1 


131F 




DG225 


EQU 


$ 


131F 


C09511 




CALL 


STER1 


1322 


AF 




XRA 


A 


1323 


326DFF 




STA 


TMFCT 


1326 




D6230 


EQU 


$ 


1326 


01FFBF 




LXI 


6 # -1-SNTER 


1329 


CDE50F 




CALL 


CBLXF 


132C 


C3991C 




JMP 


CADV1 



r 



FILE 20 
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FILE 20 

FILE 20 

FILE 20 

; SEND CR(LF) TERMINATOR * FILE 20 

;************************* FILE 20 

FILE 20 

;SEND CR(LF) FILE 20 

FILE 20 

;MARK END OF OUTPUT BLOCK FILE 20 

;RESET TERMINATOR FUNCTION FILE 20 

;T0 DELETE TERMINATOR FILE 20 

FILE 20 

FILE 20 

;CLEAR ENTER PENDING FLAG FILE 20 

;CLEAR CURSOR ADVANCE FLAG FILE 20 

AND EXIT FILE 20 

FILE 20 
;*************************#************* FILE 20 

; A20UTB - PUT BYTE INTO OUTPUT BUFFER * FILE 20 

;**************************#************ FILE 20 

; ENTRY: A = BYTE TO BE OUTPUT FILE 20 

; FILE 20 

; EXIT : H = BASEH FILE 20 

; B2DEND = B2DEND + 1 FILE 20 

; D,E,L DESTROYED FILE 20 

; FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

; FILE 20 

;**************************** FILE 20 

; ENTLCL - ENTER LOCAL MODE * FILE 20 

;***********##*************** FILE 20 

133C ETLCL EQU $ FILE 20 

133C CDC20F CALL CEDIT ;EDIT MODE ENABLED? FILE 20 

133F CA4A13 JZ EL100 ;N0 - GO INTO LOCAL MODE FILE 20 

1342 3E08 MVI A,RMOT£ ;YES - INHIBIT TRANSITION TO FILE 20 

1344 21F3FF LXI H # MFLG2 ;LOCAL MODE FILE 20 

1347 B6 ORA M ; FORCE REMOTE FLAG ON FILE 20 

1348 7? MOV \K r A FILE 20 

1349 C9 RET ; RETURN FILE 20 

; FILE 20 

134A EL100 EQU $ FILE 20 

134A 3E04 MVI A^STLCL ;SET DATACOR FOR LOCAL FILE 20 

134C CDB711 CALL DWCTL ;OPERATION FILE 20 

134F 3EEF MVI A,377Q-RMSET ;CLEAR REMOTE MODE FLAG FILE 20 

;**********************#**#**** FILE 20 

; CLCMFL - CLEAR COMMON FLAGS * FILE 20 

;****************************** FILE 20 







; ECO 


UTB - 


OUTPUT 


<ESC> 






r 
r 


ENTRY: B = 


SECOND CHARACTER IN ESCAPE SEQ 


132F 




EOUTB 


EQU 


$ 




132F 


3E1B 




MVI 


A, ESC 


;SET A TO ESC 


1331 


CD3513 




CALL 


AOUTB 


;PUT ESC INTO OUTPUT BUFFER 


1334 




BOUTB 


EQU 


$ 




1334 


78 


r 


MOV 


A^B 


;PUT SECOND CHAR INTO A-REG 
FALL INTO OUTPUT ROUTINE 


1335 




AOUTB 


EQU 


$ 




1335 


213BFF 




LXI 


H # BDEND 


1 


1338 


34 




INR 


M 


; INCREMENT TO NEXT POSITION 


1339 


6E 




MOV 


i,n 


;6ET NEW ADDRESS 


133A 


77 




MOV 


M^A 


; STORE THE BYTE 


133B 


C9 




RET 




; RETURN 



FILE 20 
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FILE 20 
FILE 20 
FILE 20 
; FILE 20 

; ENTRY: A = 377B-FLAG BIT TO BE CLEARED FILE 20 

; FILE 20 

; EXIT : A,H,t DESTROYED FILE 20 

FILE 20 



r 



1351 CCMFL EQU $ FILE 20 

1351 21F8FF LXI H^CFLGS FILE 20 

1354 A6 ANA M ;CLEAR THE FLAG BIT FILE 20 

1355 77 MOV M,A ;STORE THE NEW SETTINGS FILE 20 

1356 C9 RET ;RETURN FILE 20 

; FILE 20 

; FILE 20 

; ENTREM - ENTER REMOTE MODE FILE 20 

; FILE 20 

1357 ETREM EQU $ FILE 20 
1357 CDC20F CALL CEDIT ;EDIT MODE ENABLED? FILE 20 
135A CA6513 41 ER100 ;N0 - GO INTO REMOTE MODE FILE 20 
135D 3EF7 MVI A,3?7Q-RM0TE ;YES - INHIBIT FILE 20 
135F 21F3FF LXI H,MFLG2 ;TRANSIT10N TO REMOTE MODE FILE 20 

1362 A6 ANA M ;FORCE REMOTE FLAG OFF FILE 20 

1363 77 MOV M,.A FILE 20 

1364 C9 RET ^RETURN FILE 20 

; FILE 20 

1365 ER100 EQU $ FILE 20 

1365 97 SUB A ;CLEAR THE DATA PENDING FILE 20 

1366 3270FF STA MFLGS ; FLAGS FILE 20 

1369 3EFC MVI A # 377Q-SINRY-SVREC FILE 20 
136B CD1E05 CALL CRMF2 ;CLEAR BINARY RECORD PENDING FILE 20 
136E 3E03 MVI A,STREM ;SET DATACOM FOR REMOTE FILE 20 

1370 CDC211 CALL DMCT1 ;OPERATI0N FILE 20 
1373 3E10 MVI A^RMSET ;SET REMOTE MODE FLAG FILE 20 

;*********#*********#******** FILE 20 

; STCMFL - SET COMMON FLAGS * FILE 20 

;**************************«# FILE 20 

; FILE 20 

; ENTRY: A - FLAG BIT TO BE SET FILE 20 

; FILE 20 

; EXIT : A,H,L DESTROYED FILE 20 

; FILE 20 

1375 SCMFL EQU $ FILE 20 

1375 21F8FF LXI H,CFLGS FILE 2U 

1378 B6 ORA M ;ADD BIT TO "CMFL6S" FILE 20 

1379 77 MOV M,A ;STQRE NEW SETTINGS FILE 20 
137A C9 RET ; RETURN FILE 20 

FILE 20 

; FILE 20 

;********************#*** FILE 20 

; FILE 20 

; FCTKEY - FUNCTION KEY PRESSED (F1-F8) FILE 20 

FILE 20 



# 



ENTRY: C = FUNCTION KEY CODE C360-367B> FILE 20 

FILE 20 



EXIT : DFL6S(FCTK2D) = 1, FUNCTION KEY FILE 20 

DATA TO BE USED AS NORMAL FILE 20 

KEYBOARD CHARACTERS FILE 20 

DFLGS(FCTK2D> = FILE 20 

MFLGS(SFCTKY) = 6, KEY WAS FILE 20 

INTERPRETED LOCALLY ONLY FILE 20 

MFLGSCSFCTKYX = 1, DATA WAITING FILE 20 

FOR BLOCK TRANSFER TRIGGER TO FILE 20 
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137B 
137B 
137C 
1370 
137F 
1382 



1385 
1386 
1388 
1389 
138A 
138D 

1390 
1391 
1393 
1396 
1398 
139B 
139E 
13A1 
13A4 



13A7 
13A7 
13AA 
13AB 
13AB 
13AE 
13B1 
13B4 
13B6 
13B9 
13BC 
13BE 
13C1 
13C3 



79 

87 

D6DF 

21A6FF 

CD4E0B 



70 

0608 

5F 

54 

C06A17 

22A4FF 

1A 

FE4E 

0AA713 

3E1Q 

CA6016 

COCEOF 

010020 

CA2916 

C33116 



CD2515 
C8 

329CFF 

COC403 

3A9CFF 

FEOO 

C2A713 

3AF3FF 

E604 

CAA713 

OEOA 

C3AB13 



r 
r 

FTKEY 
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SEND TO CPU 
ALL REGISTERS DESTROYED 



EQU 
MOV 
AOO 
SUI 



$ 

A,C 
A 
FTADJ 



LXI H,STKYS 
CALL MKSC1 



; COMPUTE NUMBER OF LINES TO 
;SEARCH: 

;2*CFUNCTI0N NUMBER) - 1 

rLOCATE THE ATTRIBUTE LINE 



DEFINITION FOUND - PERFORM FUNCTION 



MOV 

SUI 

MOV 

MOV 

CALL 

SBLD 

LDAX 

CPI 

JC 

MVI 

JZ 

CALL 

LXI 

JZ 

JMP 

r 

; ********** 

; PERFORM L 
********** 

EQU 



FT200 



FT210 



CALL 

RZ 

EQU 

STA 

CALL 

LDA 

CPI 

JNZ 

LOA 

ANI 

JZ 

MVI 

JMP 



A # L 

ABLOC 

E # A 

D,H 

CHAIN 

CRFKY 

D 

NX 

FT 200 

A, FTK2D 

STDFL 

GMODE 

B,SCTKY 

SLXFA 

SLXF1 

******** 

OCAL ONL 
******** 

$ 
GFCTK 

$ 

CARIN 

CKINT 

CARIN 

CR 

FT 200 

MFL62 

ATOLF 

FT 200 

C,LF 

FT 210 



; COMPUTE LOCATION OF 
;ATTRIBUTE CODE 



;6ET ADDRESS OF DATA LINE 
;SAVE FIRST CHARACTER ADORES 

TO FORCE SKIP OVER "ENDPR" 
;GET ATTRIBUTE CODE 
;NORMAL MODE? 
;< - DO LOCAL ONLY 

;(SET DATA XFR FLAG) 
;YES - SET NORMAL KEY XFR 
;> - SET BLOCK TRANSFER 

;FOR FUNCTION KEY 
;SET FLAG FOR NOT PAGE MODE 

;ELSE SET FOR PAGE XFR 

**************** 

Y KEY FUNCTION * 
**************** 

;GET FUNCTION KEY DATA 
;NONE LEFT - RETURN 

;SAVE FUNCTION KEY CHARACTER 
^PROCESS DATA LOCALLY 
;RECALL FUNCTION CHARACTER 
;IS IT A RETURN? 
;N0 - 00 THE NEXT BYTE 
;YES - GET HARD MODE FLAGS 
;AUTO LINE FEED ENABLED? 
;N0 - DO NEXT FUNCTION BYTE 
;YES - PERFORM LINE FEED 
^FUNCTION 



************************ 

FKEYGO - TRANSMIT FUNCTION KEY 

ENTRY: DON'T CARE 

EXIT : MFL6SKSFCTKY) = 

ALL REGISTERS DESTROYED 



13C6 
13C6 
13C9 



01FF0F 
CDE50F 



FEYGO EQU $ 

LXI 6,-1-SCTKY ;CLEAR FUNCTION KEY 
CALL CBLXF ;P£NDING FLAG 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


F ILE 


20 


F1LF 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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13CC 
13CF 
13D1 



1302 
13D2 
13D5 

13D8 
13DB 
13DC 
13DF 
13E2 



13E5 
13E5 
13E7 
13EA 
13EB 
13ED 



13FQ 
13F0 
13F2 
13F2 
13 FA 
13 FT 
13FA 



13FD 
13F0 
1400 
1403 
1406 
1409 
1409 
140C 
140F 
1411 

1412 
1412 
1414 
1417 
141A 
141C 



141F 
141F 



3A6EFF 

E610 

CO 



CD2515 
CA9211 

210478 

BE 

CA9211 

CD0817 

C30213 



3E08 

CBB711 

CO 

06FF 

C3F213 



0600 

3E01 
C DOE 70 
21DB24 
C31505 



CD8917 
CA0914 
CD1B12 
C4C10C 

CD2B14 
3A69FF 
FE1B 
CO 



3E09 
CD1178 
CD 0905 
3E01 
C31170 



LDA DFLGS 
ANI FTK20 
RNZ 
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;GET DATA TRANSFER FLAGS 
;OPERATE AS NORMAL KEY? 
;¥ES - RETURN TO WAIT LOOP 



TRANSMIT FUNCTION KEY DATA 



F6010 



EQU $ 
CALL 6FCTK 
JZ STERM 



GET NEXT FUNCTION KEY 



;SEND TERMINATOR 
DATA 



IF NO 



CHAR 
MORE 



LXI 
CMP 
JZ 
CALL 

J MP 



HyBKTRM 

M 

STERM 

XUTDC 

FG010 



;BLOCK TERMINATOR CHARACTER? 
;YES - OUTPUT TERMINATOR 
;NORMAL DATA - TRANSMIT IT 
;D0 NEXT CHARACTER 



MNMDON 



MONITOR MODE ON 



MMDON 



EQU 

MVI 

CALL 

RNZ 

MVI 

JMP 



$ 

A # STMON 

DMCTL 

B,377Q 
F0100 



;SET DATACOM MONITOR 

;MOOE 
;DON*T MONITOR IF NOT SET 
;SET TO BLINK LED 
;SET FUNCTION TABLE 



; ******* ****** ** ************************ ** 
; FDISON - TURN ON FUNCTION DISABLE MODE * 

;***************************************** 

EQU $ 



FISON 



F0100 



MVI 

EQU 

MVI 

CALL 

LXI 

JMP 



B,0 

$ 

A, DPFNC 

ZTMD1 

H^FISTB 

ECEN1 



;SET FOR NO BLINK 

;TURN ON DISPLAY FUNCTIONS 

;FLA6 
;SET H,L TO NEW RANGE TABLE 
;SET RANGE TABLE AND EXIT 



;************************************* 

; FDISOF - TURN OFF FUNCTION DISABLE * 
:************************************* 



FISOF 



FF010 



EQU 

CALL 

JZ 

CALL 

CNZ 

EQU 

CALL 

LDA 

CPI 

RNZ 



$ 

CKSFK 

FF010 

DXB2D 

SKYOF 

$ 

FESC1 

LCHAR 

ESC 



DCTOF 



EQU 
MVI 
CALL 
CALL 

MVI 
JMP 



; NORMAL 
;YES - TURN 
;TURN OFF 
;FLAG 



CD8917 



A, STNRM 
ZCCTL 
EC END 
A # DPFNC 
ZLMD1 

;************************** 

; FUNCTION DISABLE ESCAPE * 
;************************** 
FDESC EQU $ 

CALL CKSFK ;SOFT 



;SOFT KEY DEFINE MODE? 

;N0 - DO NORMAL PROCESSING 

; INPUT FROM KEYBOARD? 

;N0 - RESTORE NORMAL DISPLAY 

;DISPLAY INPUT CHARACTER 

;WAS THE LAST CHAR <ESC>? 
;N0 - RETURN 

YES - TURN OFF DISPLAY FCTS 

; RESTORE DATA COM TO 



MODE 

OFF DISABLE MODE 

DISPLAY FUNCTIONS 



KEY DEFINE MODE? 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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1422 


CA2B14 


1425 


CD1B12 


1428 


C4C10C 


142B 


FE 


142B 


CB5720 


142E 


C3991C 



VER 2.4 



1431 
1431 
1433 
1435 
1437 
1439 
143B 
143B 
143F 
1441 

0098 
009 D 
009E 
OOAO 
0098 
00A1 

008E 
00E4 
OOFO 
00F7 
01 EO 
OODF 
OOFB 
OOFE 
OOFF 



1443 
1443 
1445 
1447 
1449 
144B 
144D 



144F 
144F 

1453 
1455 
1455 
1459 



4D12 
B011 
1214 
6F15 
6F15 
6F15 
6F15 
6F15 
6F15 



0228 
0528 
0B28 
0E28 
1428 
0828 



ERRORS = PA6E 93 



;N0 - BO NORMAL PROCESSING 

; INPUT FROH KEYBOARD? 

;N0 - RESTORE NORMAL DISPLAY 

;D1SPLAY THE ESCAPE CODE 
;RESET CURSOR ADVANCE FLAG T 
FORCE ANALYSIS OF NEXT 
INPUT CHARACTER FOR I 



- ******************************************** 

; FUNCTION TABLE FOR TERMINAL FUNCTION KEYS * 
; ************************************ ******** 



JZ 


FESC1 


CALL 


DXB2D 


CNZ 


SKYOF 


EQU 


$ 


CALL 


DPCHR 


JMP 


CADV1 



FCTAB 



ETRCD 
RKYCB 
SKYCD 
CRBKY 
FCLWR 
FCLIM 

ESC SO 
ECLWB 
FCODE 
F8C0B 
FTAB1 
FTADJ 
SF0R2 
SF0R1 
EHNCF 
;**** 
; FUN 

;**** 

IKYTB 



EQU 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

BW 

DW 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



$ 

DSEND 

BRKDC 

DCTOF 

IKEYS 

IKEYS 

IKEYS 

IKEYS 

IKEYS 

IKEYS 

23 OQ 
23 50 

23 66 

24 OQ 
23 OQ 
241Q 



EQU 21 6Q 
EQU 3446 
EQU 3606 
EQU 367Q 
EQU FCQBE*2 
EQU -F TAD 1/2 
EQU 375Q 
EQU 37 6Q 
EQU 37 7Q 
*************** 
CT10N ADDRESSES 
*************** 
EQU $ 
BW ICKEY 
BW RBKEY 
BW RCKEY 
BW SLKEY 
BW CNBTN 
DW CLRED 



;230 - ENTER KEY 

;231 - BREAK KEY 

;232 - BISPLAY FUNCTIONS OFF 

;233 - I/O CONTROL KEY 

;234 - READ KEY 

;235 - RECORD KEY 

;236 - SELECT KEY 

;237 - CONDITION TAPES 

;24G - (CONTROL) READ KEY 

; ENTER KEY CODE 

;RECORD KEY CODE 

; SELECT KEY CODE 

^CONTROL READ KEY CODE 

; FUNCTION CODE LOWER LIMIT 

; FUNCTION CODE UPPER LIMIT 

;<ESO-<S0> CODE 

;<ESO-<L0WER CASE B> CODE 

;F1 CODE 

;F8 CODE 

;FUNCTIQN CODE ADJUSTMENT 
56*256+FTADl-1 ;FACTOR 

;SET FOREIGN MODE STEP 2 

;SET FOREIGN MODE STEP 1 

;ENHANCE BISPLAY FUNCTION 
*************** 
FOR I/O KEYS * 
*************** 

;I/0 CONTROL KEY 

;READ KEY 

;RECORD KEY 

; SELECT KEY 

;C0NDITION TAPES 

; (CONTROL) READ KEY 



BISPLAY STRINGS FOR SOFT KEY DISPLAY 



ABLIN 



CC201BC1 



CCCO 



EQU $ 

BB EOL,ABLNK,ESC„ENDPR 



DB EOL,STPR 

AB010 EQU S 

54C8C120 DB *T *,SKYAT,ENBPR, • * 

80306682 DB NfMAL,*0',146G,INVRS,G. 



FILE 

FILE 

FILE 

F ILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2G 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 

20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2u 
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USD 
0008 
000E 
0002 



146F 
146F 
1471 
1471 
1472 
1473 
1476 



1477 
1477 
1479 
147C 



147F 
147F 
1482 
1482 
1484 



00 



145E 




145E 


3AC1FF 


1461 


47 


1462 




1462 


E6F8 


1464 


OF 


1465 


OF 


1466 


OF 


1467 


C678 


1469 


6F 


146A 


78 


146B 


E607 


1460 


47 


146E 


04 



3E80 

07 
05 

C27114 
C9 



3E08 

32C2FF 

C31170 



COBB 14 

0614 
11AAFF 



ABLOC EQU 
ABLEN EQU 
CRLOC EQU 



S-AB010-1 ;ATTRIBUTE LOCATION IN BLK 

S-ABLIN-1 ; ATTRIBUTE LINE LENGTH 

2 ;CHARACTER LOCATION IN STRIN 



J********************************************** 

; FNDTAB - FIND TAB MASK * 

; EXIT: L,H = AODR OF BYTE CONTAINING TAB BIT * 
; A * MASK FOR TAB BIT * 

; ********************************************** 

FDTAB 



FDTB1 



EQU 


$ 


LDA 


CRCOL 


MOV 


B,A 


EQU 


$ 


ANI 


370Q 


RRC 




RRC 




RRC 




ADI 


HBTBL 


MOV 


L,A 


MOV 


A,B 


ANI 


7 


MOV 


B # A 


INR 


B 



;GET CURSOR COLUMN 
;SAVE IN B 

;MASK OFF 3 LSB'S 
;RI6MT-ADiUST MSB'S 



;ADB BASE OF TAB TABLE 

;SAVE IN L 

;GET CURSOR COLUMN 

;GET 3 LSB'S 

;SAVE IN B 

;ADJUST BIT NUMBER 



; ********************* 

; FNDTB2 - SET BIT N * 



********************* 

ENTRY: B = BIT NUMBER TO 
EXIT : A = BYTE WITH BIT 



F0TB2 
FB100 



EQU 
MVI 
EQU 
RLC 
OCR 
JNZ 
RET 



A = BYTE 
B = 

$ 
A,20GQ 
$ 



FB100 



BE SET 
N SET 



;SET BIT 7 OF A 

;SHlFT LEFT 1 POSITION 
^DECREMENT BIT COUNT 
; CONTINUE IF NOT DONE 
; RETURN 



******************* 

EXIT FORMAT MODE * 
***** ************** 

RMOF EQU $ 

MVI A # FRMAT 

STA POFLD 

J MP ZLMD1 



;SET BIT TO BE CLEARED 

;SET PROTECT FLAG FOR UNPROT 

; CLEAR FORMAT MODE FLAG 



********************************************* 

FRECNT - CHECK THE NUMBER OF FREE BLOCKS * 

* 

EXIT: Z = F, NOT ENOUGH FREE BLOCKS * 
Z=T, ENOUGH FREE BLOCKS * 
********************************************* 
EC NT EQU $ 

CALL FC200 
FC001 EQU t 

MVI B # 20 ;SET DESIRED NUMBER OF BLOCK 
LXI D,FBLKS-2 ;SET TO FREE LIST HEAD 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F ILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2C 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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1487 




1487 


EB 


1488 


23 


1489 


23 


148A 


7E 


1488 


B7 


148C 


CAA814 


148F 


05 


1490 


C8 


1491 


CD6A17 


1494 


54 


1495 


5D 


1496 




1496 


E6F0 


1498 


6F 


1499 


7E 


149A 


2F 


149B 


E60F 


149D 


C28714 


14A0 


05 


14A1 


C8 


14A2 


CD6A17 


14A5 


C39614 



14A8 
14A8 
14AB 
14AD 
14B0 
14B2 
14B3 
14B3 
14B6 
14B9 
14BA 



14BB 
14BB 
14BD 
14BD 
14C0 
14 C2 
14C5 
14C8 
14CB 
14CD 
14D0 
14D3 
14D6 
14D8 
14t>B 
140E 
14DE 
14E1 
14E3 
14E6 
14E8 



3A66FE 
E601 
CAB 31 4 
F6FF 
C9 

CD8E06 
C28214 
3C 
C9 



061 E 

11AAFF 

3E01 

CD4923 

CD8714 

C20E14 

3EFC 

C04F23 

210000 

226AFF 

3E04 

CD 1170 

C3F014 

3A66FE 

E602 

CCF114 

3E02 

CD4923 



FC010 



E&O 

XCH6 

INX 

INX 

MOV 

ORA 

JZ 

OCR 

RZ 

CALL 

MOV 

MOV 

EQU 

ANI 

MOV 

MOV 

CMA 

ANI 

JNZ 

OCR 

RZ 

CALL 

JMP 



H 

K 

A,M 

A 

FC100 

B 

CHAIN 
D,H 
E,L 
FC050 EQO $ 

3606 

L # A 

A,W 

;* 

BLKSK 
FC010 
8 

CHAIN 
FC050 

; ***************** 

; NOT ENOUGH FREE 
; ***************** 



ERRORS = PAGE 95 



;SET H,L TO ADDRESS OF LSB 
;PART OF PREVIOUS LINE 
;POINTER 
;GET LSB OF NEXT LINE LINK 
;ANY MORE FREE BLOCKS? 
;N0 - TRY TO GET MORE 
;ENOUGH FREE BLOCKS? 
;YES - RETURN SUCCESSFUL 
;N0 - GET NEXT LINE ADDRESS 
;SAVE NEXT LINE ADDRESS IN 
;D,E 



;COMPUTE 
; BLOCK 
;GET THE 
IS IT AN 
;FOUR B 
;N0 - GO 
; ENOUGH F 
;YES - RE 
;N0 - 60 
;CHECK FO 
************* 

BLOCKS - TRY 
************* 



ADDRESS OF NEXT 

LINK 

LSB OF THE LINK 

EOL LINK (LOWER 
ITS NOT ALL ONES)? 
TO THE NEXT LINE 
REE BLOCKS FOUND? 
TURN SUCCESSFUL 
TO THE NEXT BLOCK 
R END OF LINE 
************* 

TO GET MORE * 

************* 



FC100 



FC110 



FC200 



FCENT 



FC230 



EQU 

LDA 

ANI 

JZ 

ORI 

RET 

EQU 

CALL 

JNZ 

INR 

RET 



ECU 

MVI 

EQU 

LXI 

MVI 

CALL 

CALL 

JNZ 

MVI 

CALL 

LXI 

SttLD 

MVI 

CALL 

JMP 

EQU 

IDA 

ANI 

CZ 

MVI 

CALL 



BYFL2 
BYFC1 
FC110 
377Q 

$ 

PTBLK 
FC001 
A 



; CALL 

;FROM FC200 ? 

;N0 

;YES RETURN 

;NZ 



;REMOVE LINE 
;LOOP 
;RET. NZ 



;FREE 
;SET 
;1N0IK. 
; ENOUGH 

;no 



$ 

B,30 

$ 

D # FBLKS-2 

A^BYFCI 

SBFL2 

FC010 

FC230 

A,-1~BYFC1-BYFC2 

CBFL2 ; RESET 

H,Q 

MKFLG 

A, MIL OK 

ZLMD1 

FC290 

$ 

BYFL2 

BYFC2 

FC24Q 

A /r BYFc2 

SBFL2 



;# OF BLOCKS 



LIST HEAD 



FREE/ 



INDIK, 



;DISPL. MESSAGE 

;SET 

;INDIK.#1 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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14EB 
14ED 
14F0 
UFO 
14F1 
14F1 
14F3 
14F6 
14F6 
14F9 
14FC 
14FC 
t4FF 
1500 
1503 
1506 
1506 
1509 
150C 
150E 
1511 
1514 
1517 
1517 
151A 



151B 
151B 
151D 



1520 
1520 
1522 



1525 
1525 

1528 
152B 
152E 
152F 



3EFE 
CD4F23 

C9 

3E55 
324FFF 

CB3A28 
C2F614 

21A20E 
37 

22F1FF 
CD5C19 

CD0570 

C20615 

FEOD 

CA1715 

CD1470 

C30615 

CD 901 9 
C9 



3E0E 
C30870 



3E0F 
C3Q870 



2AA4FF 

CDBAOB 
C23615 
EB 
22A4FF 



FC290 
FC240 

FC242 

FC244 



FC246 



FC247 



MVI 

CALL 

EQU 

RET 

EQU 

MVI 

STA 

EQU 

CALL 

JNZ 

EQU 

LXI 

STC 

SHLD 

CALL 

EQU 

CALL 

JNZ 

CPI 

JZ 

CALL 

JMP 

EQU 

CALL 

RET 



A # -1-BYFC1 
CBFL2 

$ 

$ 

A,UX 
.KERR 
$ 

BYCHK 
FC242 
$ 
H,YMS03 

MGPT1 

DPMS6 

$ 

ZETKY 

FC246 

CR 

FC247 

ZBELL 

FC246 

$ 

RTDSP 
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;AND RESET 
INDIK. U 2 



************* 

FRNCT1 - FOR 
************* 

NCT1 EGO $ 
MVI A, 
JMP ZB 

************* 

FRNCT2 - FOR 

************* 

NCT2 EQU $ 

MVI k 

JMP ZB 



********************************* 

EIGN MODE CONTROL 1 (<ESC>-"<"> * 
********************************* 



;SET KEYBOARD FOREIGN MODE 1 



FNWD1 

CTL 

********************************* 

EIGN MODE CONTROL 2 C<ESC>-**>") * 
********************************* 

FNMD2 ;SET KEYBOARD FOREIGN MODE 2 
CTL 



************************ 

GTFCTK - SET FUNCTION KEY 
ENTRY: DON*T CARE 



m 
t 
t 

# 
i 

r 
e 
i 

GFCTK 



EXIT : NZ - FUNCTION KEY CHAR AVAILABLE 
A s c - FUNCTION KEY CHARACTER 

Z - NO FUNCTION KEY CHAR AVAILABLE 
DFL6SCFCTK2D) = 
A DESTROYED 

D-L DESTROYED 



EQU $ 
LHLD CRFKY 

CALL NTCHO 
JNZ GF010 
XCH6 
SHLD CRFKY 



;GET LAST FUNCTION KEY 

CHARACTER ADDRESS 
;GET THE NEXT CHARACTER 
;EOL LINK - DO EOL EXIT 

; STORE NEW ADDRESS 



FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

F ILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 



20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 



FILE 20 
FILE 20 
FILE 20 
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1532 


FE80 


1534 


4F 


1535 


F8 



1536 
1536 
1538 
153B 
153C 



153D 
153D 
1540 
1541 
1542 



1543 
1543 
1546 
1548 
1549 
154A 



154B 
154B 
154E 



1551 
1551 
1554 
1557 
155A 
155C 
1550 
1560 



1563 
1563 
1566 



1569 
1569 
156C 



3EEF 
CDEG15 
BF 
C9 



CD5E14 
B6 
77 
C9 



CD5E14 

EEFF 

A6 

77 

C9 



212C28 
C37615 



213A28 

CD7615 

3A55FF 

E601 

C8 

324FFF 

C35115 



211A28 
C37615 



CPI 
MOV 

RM 



ADEL+1 
C,A 
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;IS CHARACTER ASCII? 

;<PUT DATA IN C-REGISTER} 
;YES - RETURN 



EOL FOUND - CLEAR FCTK2D FLAG 



6F010 



EQU 

HVI 

CALL 

CMP 

RET 



A,377Q-FTK2D 

CRDFL "CLEAR FLAG FROM FLAG WORD 
A ;SET Z TRUE 

; RETURN 



; ***** 

; BTBS 

;***** 

HBSET 



****** 

; HTBC 
;***** 
HBCLR 



********************** 

ET - TAB SET ROUTINE * 
********************** 

ECU £ 

CALL FDTAB ;6ET TABLE ENTRY FOR COLUMN 
ORA M ;SET TAB 
MOV M,A 

RET ;RETURN 

************************ 

LR - TAB CLEAR ROUTINE * 
************************ 

EQU $ 

;GET TABLE ENTRY FOR COLUMN 
COMPLEMENT MASK 
;CLEAR TAB 



CALL FDTAB 
XRI 377Q 
ANA M 
MOV M,A 
RET 



; RETURN 



• ************* 

; I0BN60 - FAS 
************** 

1BNG0 EQU $ 
LXI H # 
JMP IR 

; ************* 

; IOBSYC - yAI 
************* 

EQU $ 

LXI 

CALL 

LDA 

ANI 

RZ 

STA 

JMP 



IBSYC 



212F28 
C37615 



H, 
IR 
CM 
RU 

IC 
IB 

;************* 

; I0CT60 - I/O 

;************* 

ICTGO EQU $ 

LXI H, 

JMP IR 

************** 

; IOCTMN - HON 

;************* 

ICTMN EQU $ 

LXI H, 

J MP I R 

- ************* 



******************************* 

T BINARY READ ESCAPE SEQUENCE * 
******************************* 

CDCDP ; EXECUTE FAST BINARY READ 
MGO ;IF 1/0 ROM PRESENT 
**************** 

T FOR CTU IDLE * 
**************** 

BYCHK ;60 TO CTU BUSY CHECK 
M60 ; ROUTINE 
ND ;6ET CURRENT CTU COMMAND 
N ;TAPE STILL RUNNING? 

;N0 - RETURN 
ERR ;YES - CLEAR "IOC ERR" 
SYC ; CONTINUE WAITING 
************************** 

CONTROL ESCAPE SEQUENCE * 
************************** 

ICNTL ; EXE CUTE I/O CONTROL ESCAPE 
MGO ;SEQ IF I/O ROM PRESENT 
********************** 

ITOR CARTRIDGE TAPES * 
********************** 

CTMON ;GET MONITOR ADDRESS 
MGO ;EXECUTE IF CODE PRESENT 

********** 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F ILE 
FILE 
F IL E 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 

20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2U 



r 



FILE 20 
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FILE 20 

FILE 20 

FILE 20 

; IQKEYS - I/O KEY HIT * FILE 20 

p *********************** FILE 20 

FILE 20 

; ENTRY: D,E = KEY INDEX FILE 20 

; FILE 20 

156F IKEYS EQU $ FILE 20 

156F 213D14 LX 1 H,IKYTB-6 FILE 20 

1572 19 DAD D ;COMPUTE KEY FUNCTION ABDRES FILE 20 

1573 CD6AI7 CALL CHAIN ;EXECUT£ KEY FUNCTION IF 1/0 FILE 20 

; ROM PRESENT FILE 20 

; FILE 20 

;******************************************* FILE 20 

; IORMGO - PERFORM FUNCTION IF OPTION ROMS * FILE 20 

; ARE PRESENT * FILE 20 

;******************************************* FILE 20 

FILE 20 

ENTRY: H„L = VECTOR TO BE ENTERED FILE 20 

FILE 20 

EXIT : NC - FUNCTION EXECUTED FILE 20 

REGISTERS SET ACCORDING TO FUNCTION FILE 20 

C - FUNCTION NOT EXECUTED FILE 20 

A DESTROYED FILE 20 

FILE 20 

FILE 20 

;PUT FUNCTION ADDR ON STACK FILE 20 

;CHECK ROM START LOCATION FILE 20 

;DOES ROM EXIST? FILE 20 

;YES - EXECUTE FUNCTION FILE 20 

;N0 - SET ERROR MESSAGE TO FILE 20 

; M N0 DEVICE DRIVER- FILE 20 

;RESTORE STACK FILE 20 

;RETURN FUNCTION NOT FILE 20 

;EXECUTED (C-TRUE) FILE 20 

;******************************************** FILE 20 

; I0RM61 - CHECK FOR PRESENCE OF OPTION ROM * FILE 20 

;******************************************** FILE 20 

; FILE 20 

; ENTRY: H,L * ROM STARTING ADDRESS FILE 20 

; FILE 20 

; EXIT : 2 => ROM EXIST FILE 20 

; H # L = H # L<ENTRY)+1 FILE 20 

; NZ => ROM ABSENT FILE 20 

; A DESTROYED FILE 20 

; HVL = H^LCENTRY) => ROM ABSENT FILE 20 

; H,L = H,L(ENTRY>+1 => WRONG ROM FILE 20 

FILE 20 

FILE 20 

;6ET FIRST ROM BYTE FILE 20 

;CH£CK UPPER 4 BITS ONLY FILE 20 

;IS IT AN UPPER CASE P? FILE 20 

;N0 - RETURN ROM ABSENT FILE 20 

;YES - CHECK SECOND BYTE FILE 20 

;SECOND BYTE OF ROM SHOULD FILE 20 

;EQUAL HIGH ORDER EIGHT FILE 20 

;BITS IN ITS PROPER ADORES FILE 20 

RANGE FILE 20 

FILE 20 

;************************************ FILE 20 

; IOINTR - I/O INTERRUPT PROCESSING * FILE 20 

-************************************ FILE 20 



1576 


IRMGO EQU 


$ 


1576 


E5 


PUSH 


H 


1577 


2E00 


MVI 


«-,0 


1579 


CD8615 


CALL 


IRM61 


157C 


C8 


RZ 




157D 


21910E 


LXI 


H,NDRVR 


1580 


22F1FF 


SHLD 


M6PT1 


1583 


E1 


POP 


H 


1584 


37 


STC 




1585 


C9 


RET 





1586 


IRRG1 EQU 


$ 


1586 


7E 


MOV 


A,M 


1587 


E6F0 


ANI 


36 OQ 


1589 


FE50 


cpi 


PX 


158B 


CO 


RNZ 




158C 


23 


INX 


H 


158D 


7E 


MOV 


A,M 


158E 


BC 


CMP 


H 


158F 


C9 


RET 





I 
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1590 
1590 
1593 
1596 
1598 
159A 
159D 
159E 
15A0 
15A2 
15A5 
15A6 



15B6 
15B6 
15B9 
15BC 
15BD 
15BE 
15C0 
15C3 

15C7 



CD6591 

3AF5FF 

F640 

D37G 

210780 

6E 

E6BF 

D370 

3A7FFE 

A5 

FA3028 



15A9 


7D 


15AA 


0640 


15AC 


B7 


15AD 


CAB515 


15B0 




15B0 


04 


15B1 


07 


15B2 


D2B015 


15B5 




15B5 


78 



21DEFF 

22EFFF 

77 

23 

36CE 

21770E 

AF 

320B80 

C3C911 



15CA 




15CA 


CD6591 


15C0 


D2B615 


15D0 


F1 



ENTRY; "PSW" AND H # L PUSHED 
A = INTERRUPT CODE 



IINTR 



ESU 

CALL 

LDA 

OR I 

OUT 

LXI 

MOV 

ANI 

OUT 

LDA 

ANA 

JM 



$ 

1TVEC 

PCCTL 

POLL 

POCSR 

H # ICRCL 

L,M 

377Q-P0LL 

POCSR 

DVFL6 

L 

CINTR 



; CHECK ALTERNATE INTERRUPT 
;6ET CURRENT PROCESSOR STATE 
;POLL THE I/O BOARDS TO FIND 

;OUT WHO INTERRUPTED 
;D0 DUMMY I/O READ TO GET 

;POLL RESPONSE 

;RESTORE PROCESSOR STATE 
;GET POLL DEVICE FLAG 
;DEVICE DRIVER PRESENT? 
;CTU - DO CTU ROUTINE 



****************************************** 

INVALID DEVICE INTERRUPT - REPORT ERROR * 
****************************************** 

; RECALL POLL RESPONSE 
;COMPUTE ERROR CODE 
;ANY DEVICE INTERRUPTED? 
;N0 - DON*T LOOK FOR BIT 
YES - DETERMINE DEVICE 



10010 



10020 



MOV 


A,L 


MVI 


B,ASIGN 


ORA 


A 


JZ 


10020 


EOU 


$ 


INR 


B 


RLC 




JNC 


10010 


EGU 


$ 


MOV 


A # B 



; INCREMENT ERROR CODE 
;DEVICE TYPE FOUND? 
;N0 - CONTINUE LOOKING 
;YES - SET ERROR CODE 

FALL INTO ERROR REPORTER 



^ ********************************************* 

; INTERR - REPORT INVALID INTERRUPT OCCURRED * 
********************************************** 



ENTRY: 



A * ERROR CODE (ASCII CHARACTER) 



ITE 



RR 



EOU 

LXI 

SHLD 

MOV 

I NX 

MVI 

LXI 

XRA 

STA 

J MP 



H^IDATA 
M6PT2 

M,A 

H 

M,EOP 

H > IERMS 

A 

ICTCO 

HNGUO 



;SET ERROR 
;MESSAGE 



CODE FOR ERROR 



;REPORT INTERRUPT ERROR 
;STOP ANY CTU MOTION 



* ** 

; i 

: ** 



;AND HANG TERMINAL 
*************************************** 

NTRPT - PROCESS UNEXPECTED INTERRUPTS * 
*************************************** 



ENTRY; "PSW" PUSHED 

A = INTERRUPT CODE 
C-FLAG CLEARED 



ITRPT 



EOU $ 

CALL ITVEC 

JNC ITERR 

POP PSW 



;ANY INTERRUPT HANDLER? 
;N0 - REPORT ERROR 
;YES - RESTORE PSW 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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20 
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20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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1501 
15D2 



1503 
15D3 
1506 
15D8 

15D9 
15D9 
1508 
150E 



15EO 
15E0 
15E3 



15E4 
15E4 
15E5 



15E6 
15E6 
15E8 

15EB 
15EB 
15E0 



15F0 
T5F0 
15F2 



15F5 
15F5 
15F7 



FB 
C9 



3A6EFF 

E640 

CO 



3E02 

CD0870 

3EBF 



216EFF 
A6 



77 
C9 



3E40 
C06016 



3E01 
C30870 



06C0 
C31516 



3EC2 
C3FC15 



EI 
RET 



ERRORS = PAGE 10C 



;RE-ENABLE INTERRUPTS 
;RETURN TO INTERRUPTED CODE 



j ************************************ 
; I01NTR - I/O INTERRUPT PROCESSING * 

; ************************************ 
• ****************** 

; KEYBOARD ENABLE * 
■ ****************** 



KBEN 



KBEN1 



EQU 

LDA 
ANI 
RNZ 



$ 

DFLGS 
KOLOK 



;KEYBOARD LOCKED BY ESC SEQ? 
;YES - DO NOT UNLOCK KEYBOARD 



EQU 
MVI 
CALL 
MVI 



$ 



§ 
i 

CRDFL 



;UNLOCK THE KEYBOARD 

;CLEAR LOCKED FLAG 
CLRDFL - CLEAR DATA TRANSFER FLAGS 



A,ULKKB 

ZBCTL 

A,377Q-K0L0K 



ENTRY: A = FLAGS TO BE CLEARED 



EQU 
LXI 
ANA 



$ 

H. 



DFLGS 



I ;MASK OUT FLAGS 

; STOREA - STORE VALUE N A-RE6 AND RETURN 



ENTRY: A = VALUE TO BE STORED 

H # L = LOCATION TO BE STORED IN 



SOREA 



EQU $ 
MOV to,h 
RET 

• **************** 
I KEYBOARD LOCK * 

• **************** 
KLOKO EQU $ 

MVI A^KDLOK 
CALL STDFL 



KBLOK 



EQU 
MVI 
J MP 



A # LCKKB 
ZBCTL 



; STORE UPDATED VALUE 
;RETURN 



;SET ESCAPE SEQUENCE LOCK 
;FLAG 



;LOCK THE KEYBOARD 



; ************* *** 

; START PROTECT * 

• **************** 

PSTRT EQU $ 

MVI B # STPR 
J MP P01Q0 

• **************** 

; TRANSMIT-ONLY * 
; **************** 

SRXMO EQU $ 

MVI A,XONLY 
JMP P0010 

; ************** 

; END PROTECT * 



;STORE START PROTECT CONTROL 
;FLAG 



; STORE TRANSMIT-ONLY 
;FLAG 



CONTROL 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2G 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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15FA 
15 FA 



15FC 
15FC 
15FF 
1602 
1603 
1606 
1609 
160C 
160E 
1611 
1614 



1615 
1615 
1618 
1619 
161A 
161B 
161E 
161F 
1622 



1623 
1623 



1626 
1626 



1629 
1629 
162C 
162E 



3EC1 



320BFF 

3AC1FF 

3D 

C06C07 

FA1470 

3AC5FF 

FECO 

C4F015 

3ADBFF 

47 



C07317 

CO 

78 

F5 

CD921E 

F1 

32C5FF 

C9 



010040 



CDFDOF 



3AFBFF 

E640 
CA3E16 



;************** 
PREND EQU $ 

MVI A^ENDPR 



; STORE END PROTECT CONTROL 



MAKE SURE PREVIOUS CHAR IS DEFINED PROTECTED 



PO010 EQU $ 

STA PARM1 ;SAVE CONTROL FLAG 

LDA CRCOL ;6ET THE CURRENT COLUMN 

DCR A ;SET TO FIND PREVIOUS COLUMN 

CALL RADRO ;PREVIOUS COLUMN PRESENT? 

JM ZBELL ;N0 - SOUND BELL AND RETURN 

LDA LTFHT ;YES - RECALL LAST FORMAT CT 

CPI STPR ;yAS IT A START PROTECT? 

CNZ PSTRT ;N0 - ENTER STPR 

LDA PARM1 ;RECALL FORMAT CONTROL FLAG 

MOV B,A ;T0 BE STORED 

r ENTER THE FORMAT CONTROL FLAG 



P0100 



EQU $ 

CALL CKFMS 

RNZ 

MOV 

PUSH 

CALL 

POP 

STA 

RET 



A, 6 

PSW 

DSPC1 

PSW 

LTFMT 



;FORMAT MODE? 
;Y£S - TERMINATE 

;N0 - ADD CHAR TO DISPLAY 
;SAVE THE CONTROL CODE 

;(DISPC1 DESTROYS "LSTFWT 
;RECALL CONTROL CODE 
;NEW ENTRY 



ENTREN - ENABLE ENTER VIA ESCAPE SEQUENCE 



ETREN 



EQU 
LXI 



B # SNTER 



PENDING 



; SBL 

S 

;**** 



;SET DISPLAY SEND 
FALL INTO "SBLXFO" 
****************************************** 

XFO - SET BLOCK TRANSFER FLAG FOR ESCAPE * 
EQUENCE INITIATED BLOCK TRANSFERS * 

****************************************** 



ENTRY: B = FLAG TO BE SET IN "MFLGS" 
C = FLAG TO BE SET IN "MFLGS2" 

EXIT : ALL REGISTERS DESTROYED 

X-ON AND DC2 PENDING FLAGS ARE SET 
ACCORDING TO THE SETTINGS OF G AND H 



SLXFO 



EQU $ 
CALL CRXON 



;CLEAR BLOCK TRANSFER TRI6GE 



SBLXFA - DETERMINE DC2 HANDSHAKE MODE FOR 
NON-BLOCK HODE KEYBOARD INITIATED BLOCK 



TRANSFERS 



SLXFA 



EQU 
LDA 
ANI 
JZ 



$ 

KJMPR 
HDSHK 
SL010 



;6ET THE STRAP SETTINGS 
;DC2 ON ALL BLOCK TRANSFERS? 
;N0 - DO NOT SET DC2 FLAG 
YES - FALL INTO "SBLXF1" 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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1631 
1631 
1634 
1636 
1638 
163B 



163E 
163E 
163F 
163F 
1640 
1641 
1644 
1645 
1648 
1649 
164A 
164B 
164C 
1640 
164E 
164F 



1652 
1652 
1655 
1658 
165B 
1 656 
1650 
1660 
1663 
1665 
1666 
1666 
1668 



3AFBFF 

E680 

3E01 

CA3F16 

CD9804 



78 

BO 

47 

CODFOF 

C8 

2170FF 

78 

86 

77 

2B 

79 

B6 

77 

C3EB1S 



COCEOF 
3A0478 
C20817 

3E00 

C00817 

3AF3FF 

E604 

C8 

3E0A 
C30817 



; ************************************************ 
; SBLXF1 - SET BLOCK TRANSFER FLAG FOR KEYBOARD * 
; INITIATED BLOCK TRANSFERS * 

; ************************************************ 



ENTRY: 



B = FLAG TO BE SET IN "MFLGS** 
C * FLAG TO BE SET IN -MFL6S2' 



SLXF1 



EQU 
LDA 
ANI 
MVI 
JZ 



$ 

KJMPR 

D2SND 

A,S0C2/2 

SL020 



CALL CKCT1 



SL01Q 



SL020 



EQU 

MOV 

EQU 

ORA 

MOV 

CALL 

RZ 

LXI 

MOV 

ORA 

MOV 

DCX 

MOV 

ORA 

MOV 

JMP 



$ 
A,B 

$ 

B 

B # A 

CRMTE 

H, MFLGS 

A,B 

M 

M,A 

H 

A,C 

M 

M^ A 

KBLOK 



;6ET THE STRAP SETTINGS 
; INHIBIT DC2 HANDSHAKE? 
56 ;(SET 0C2 PENDING FLAG) 
;N0 - SET 0C2 PENDING FLAG 
;YES - SET BLOCK TRANSFER 
TRIGGER TO CAUSE IMMEDIATE 
TRANSMISSION OF DATA 

;PUT FLAG INTO A-REGISTER 

;ADD IN OPTIONAL DC2 FLAG 
;SAVE FLAGS IN B-REGISTER 
; REMOTE MODE ENABLED? 
;N0 - DON'T SET BLOCK XFR 
;YES - SET DATA PENDING 
; FLAGS 



;SET FLAG IN •MFL6S2" 
; DISABLE THE KEYBOARD 



************************************* 

SDTRM1 - SEND TERMINATOR CHARACTER * 
************************************* 



r 
r 
* 

r 
t 

i 

m 

STRM1 



STRM2 



EXIT : A DESTROYED 

$ 

GWGDE 

BKTRM 

XUTDC 

$ 

A,CR 

XUTDC 

MFLG2 

ATOLF 



STRM3 



EQU 

CALL 

LOA 

JNZ 

EQU 

MVI 

CALL 

LDA 

ANI 

RZ 

EQU 

MVI 

IMP 



$ 

A # LF 
XUTDC 



;PAGE MOfE? 

;C6ET BLOCK TERMINATOR) 
;YES - SEND BLOCK TERM ONLY 
;N0 - SEND CR(LF> 

;TRANSMIT RETURN 

;AUTO LINE FEED ENABLED? 
;N0 - RETURN 

;YES - TRANSMIT LINE FEED 



; ********************************** 

; SETpFL - SET DATA TRANSFER FLAG * 
; ********************************** 

; ENTRY: A = FLAG BIT TO BE SET 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 



# 



r 
i 
i 



FILE 20 
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FILE 20 

FILE 20 

FILE 20 

; EXIT : H = BASEH FILE 20 

; A,L DESTROYED FILE 20 

; FILE 20 

166B STDFO EGO $ ;SET DATA COMR INPUT FLAG FILE 20 

166B 3E01 MVI A # SACQM ;SET FLAG BIT TO BE SET FILE 20 

166D STDFL EQU $ FILE 20 

166D 216EFF LXI H # DFLGS FILE 20 

1670 B6 ORA « ;MERGE FLAG BIT TO EXISTING FILE 20 

1671 77 MOV M,A ; FLAGS FILE 20 

1672 C9 RET ;RETURN FILE 20 

; FILE 20 

; FILE 20 

;************************ FILE 20 

FILE 20 

SETLFT,SETRHT - SET LEFT AND RIGHT MARGINS FILE 20 

FILE 20 

ENTRYr H * BASEH FILE 20 

CORCOL = CORSOR COLUMN POSITION FILE 20 

FILE 20 

EXIT : LFTMGN^RHTMGN SET APPROPRIATELY FILE 20 

FILE 20 

1673 STLFT EQU $ FILE 20 
1673 CD7817 CALL CKFMT ; FORMAT MODE? FILE 20 

1676 CO RNZ ;YES - DON'T SET MARGIN FILE 20 

1677 3ABEFF LDA RTMGN ;NQ - GET THE RIGHT MARGIN FILE 20 
167A 2EC1 MVI L^CRCOL-BASE FILE 20 
167C BE CMP M ; CURSOR AFTER RIGHT MARGIN? FILE 20 
167D FA8E20 JM DPCH1 ;YES - DON'T SET MARGIN FILE 20 

1680 7E MOV A,M ;N0 - SET NEW LEFT MARGIN FILE 20 

1681 32BFFF STA LTMGN FILE 20 

1684 C9 RET ; RETURN FILE 20 

FILE 20 

1685 STRHT EQU $ FILE 20 
1685 CD7817 CALL CK FMT ; FORMAT MODE? FILE 20 

1688 CO RNZ ;YES - DON* SET MARGIN FILE 20 

1689 3AC1FF LDA CRCO.L ;-6ET CURRENT CURSOR COLUMN FILE 20 
168C 2EBF MVI L,LTM6N-BASE FILE 20 
168E BE CMP M ;BEFORE LEFT MARGIN? FILE 20 
168F FA8E20 JM DPCH1 ;YES - DON'T SET MARGIN FILE 20 

1692 28 DCX H ;N0 - SET NEW RIGHT MARGIN FILE 20 

1693 77 MOV M, A FILE 20 

1694 C9 RET ; RETURN FILE 20 

; FILE 20 

;********************************** FILE 20 

; SETMF2 - SET FLAG BIT IN MFLGS2 * FILE 20 

*********************************** FILE 20 

; FILE 20 

; ENTRY: A « FLAG BIT TO BE SET FILE 20 

FILE 20 



» 



EXIT : A = UPDATED MFLGS2 VALUE FILE 20 

H # L = MFL6S2 FILE 20 

FILE 20 

FILE 20 

FILE 20 

;ADD BIT TO MFLGS2 FILE 20 

;STORE NEW SETTINGS FILE 20 

;RETURN FILE 20 

; FILE 20 

;***************************************** FILE 20 

; SETTRM - SET NON-DISPLAYING TERMINATOR * FILE 20 



1695 




STMF2 


EQU 


$ 


1695 


216FFF 




LXI 


H,MLGS2 


1698 


B6 




ORA 


M 


1699 


77 




MOV 


M,A 


169A 


C9 




RET 
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169B 
169B 
169D 
16A0 
16A2 
16A5 



16A8 
16A8 
16AB 
16AD 
16AE 
16B1 
16B3 



16B6 
16B6 
16B9 
16BA 
16BC 



16BF 
16BF 
16C2 

16C5 
16C5 
16C8 
16CA 



3E01 

326DFF 

3EC4 

C0941E 

C3A21A 



3A6EFF 

E601 

CO 

21EB24 

3E08 

C3F504 



3ADEFF 
47 

3E0B 
C3B711 



C0C516 
C3D922 



3AFAFF 

E601 

CA3B17 



***************************************** 



STTRM 



EQU 


f 


MVI 


A,INTRK 


STA 


TMFCT 


MVI 


A,SPFL6 


CALL 


DSPC2 


JffP 


FDSRX 



;S£T TO IGNORE NON-DISPLAYI N 
;TERMINATORS 

;ADD NON-DISPLAYING 

;TERMINATOR TO DISPLAY 

;SET "LSTCOL" TO MAXCOL+1 
TO FORCE LINE RE-SCAN TO 
INHIBIT DELETION OF NEW 
NON-DISPLAYING TERMINATOR 



;***** 



SNDC 
t*** 

SDCDE 



*************************** 
D ATTENTION/ FUNCTION CODE * 



_ TK^K- wtiK TK 



*** ***** 

DE - SEN 
*********************************** 

EQU $ 
LDA DFLGS 
ANI SACOM 



RNZ 
LXI 
MVI 
JMP 



;***** 

; <A> 

; ***** 

SDCD1 



A, 
EC 

******** 
- SEND A 
******** 

EQU $ 

LDA 

MOV 

MVI 

JMP 



;6ET DATA TRANSFER FLAGS 
;COMMAND FROM DATA COMM? 
;YES - IGNORE IT 
;SET TO ACCUMULATE OCTAL 
;CODE CHARACTER 



ID 
B, 
A, 
DM 



SDCTB 

OTRDX 

APO 

*************** 

TTENTION CODE * 

*************** 

ATA ;GET ACCUMULATED VALUE 

A ;PUT CODE INTO B-REGISTER 

SDATN ;SET DATA COMM CONTROL CODE 

CTL ;PERFORM FUNCTION 



;*********************************************** 
; STRTBL - SET FIRST DISPLAY OUT CHARACTER FOR * 
; BLOCK STORE * 

J*********************************************** 



ENTRY: DON'T CARE 

EXIT : CURCOL,CURROW = STARTING POSITION 

IF THE AUTO TERMINATOR STRAP (J) IS OUT, A 
TERMINATOR IS PLACED AHEAD OF THE CURRENT 
CURSOR POSITION AND A REVERSE SCAN IS MADE 
FOR THE FIRST TERMINATOR BEFORE THE CURRENT 
CURSOR POSITION. OTHERWISE, THE CURSOR IS 
PLACED AT THE HOME POSITION 



SRTBL 



SRTB1 



;***** 

; S TTE 



ECU $ 
CALL SRTB1 
JMP IITDG 



EQU 
LDA 
ANI 
JZ 



$ 

KJMP2 
ATTRM 
XOHME 



;SET CURSOR START POSITION 
;SET UP DISPLAY GET ROUTINE 



;6ET KEYBOARD JUMPERS 2 
;AUTO TERMINATOR ENABLED? 
;N0 - HOME THE CURSOR 



************************** 
RM - SET AUTO TERMINATOR * 
************************** 



EXIT : Z => AUTO TERMINATOR NOT SET 
NZ => AUTO TERMINATOR SET 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F ILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F ILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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16C0 




SATRM 


EQU 


$ 


16CD 


CD7E17 




CALL 


CKMLK 


16D0 


C A 091 6 




JZ 


SB010 


16D3 


CD7817 




CALL 


CKFMT 


16D6 


CAE016 




SI 


SB 050 


16D9 




SB010 


EQU 


$ 


16D9 


3AACFF 




LDA 


FBLKS 


16DC 


B7 




ORA 


A 


16DD 


CA630B 




JZ 


ML OCX 



16E0 




16E0 




16E0 


3EFB 


16E2 


CDE015 


16E5 


F608 


16E7 


77 


16E8 


C9 



16E9 
16E9 
16EC 
16ED 
16F0 
16F3 
16F4 
16F5 
16F6 
16F7 
16F8 
16F9 
16FA 
16FD 
16FF 



1702 
1702 

1704 
1707 

1708 
1708 
1709 



2AC0FF 

E5 

CDA612 

2AC0FF 

C1 

7C 

90 

47 

7D 

91 

BO 

C2EC16 

3E04 

C36D16 



3E1B 

CD0817 

78 



B7 
F5 



;MEMORY LOCK ENABLED? 

;YES - CHECK FOR FREE BLOCKS 

; FORMAT MODE ENABLED? 

;N0 - ADD TERMINATOR 

;YES - CHECK FOR FREE BLOCKS 

;GET LSB OF FREE BLOCKS PTR 

;ANY FREE BLOCKS? 

;N0 - FORCE MEMORY LOCK ON 



;****************************************** 
; SPACE AVAILABLE - STORE NON-DISPLAYING * 
; TERMINATOR AT CURRENT CURSOR POSITION * 

;****************************************** 

SB050 EQU S 

SB060 EQU $ 

MVI A,377Q-NSEND 

CALL CRDFL ;CLEAR NO DATA FLAG 

ORI SPTRM ;SET TO SKIP INITIAL BLOCK 

MOV M,A ;TERMINATOR CHARACTER 

RET ;RETURN NZ 



; NO PREVIOUS 

; ************* 



SB080 



EQU $ 
LHLD CR 
PUSH H 
CALL DS 
LHLD CR 
POP B 



MOV 
SUB 
MOV 
MOV 
SUB 
ORA 
JNZ 
MVI 
JMP 



B 

E> j 

A, 

C 

B 

SB 

A„ 

ST 



****** 
TERMIN 
****** 

ROM 

EN1 

ROW 

H 



060 

NSEND 

DFL 



************************ 

ATOR - HOME THE CURSOR * 
************************ 

;SAVE THE CURRENT ROW AND 

;CQLUHN VALUES 
;HOME CURSOR FOR TR AN SWISS 10 
;6ET NEW ROW AND COLUMN 
; RECALL OLD ROW AND COLUMN 
;COMPARE TO HOME ROW AND 

; COLUMN 



;DID CURSOR MOVE? 

;YES - SET FOR DATA PRESENT 

;N0 - SET FOR NO DATA 

; RETURN 



******************************* 
; XPUTDC - TRANSMIT CHARACTER * 
;****************************** 



ENTRY: A = CHARACTER TO BE TRANSMITTED 



; EX 



ECOUT 



IT ; NC - TRANSMIT SUCCESSFUL 
C - TRANSMIT FAILED 
A DESTROYED 



XUTDC 



EQU $ 
MVI A, ESC 
CALL XUTDC 
MOV A # B 

EQU $ 
ORA A 
PUSH PSW 



;OUTPUT AN ESCAPE CODE 



^FOLLOWED BY CHAR IN B-REG 



;SET C-FLAG FALSE 

;SAVE THE FLAGS AND A-REG 



20 

20 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 
FILE 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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170A 


CDDFOF 


170D 


CA1B17 


1710 




1710 


F1 


1711 


F5 


1712 


CD1A78 


1715 


0A3117 


1718 


C21D17 


171B 




171B 


F1 


171C 


C9 



171D 
171D 
171E 
171F 
1720 
1723 
1725 
1728 
1729 
172A 
172B 
172E 



173B 
173B 



173E 



E5 

05 

C5 

CD6915 

3E0A 

C00870 

C1 

D1 

E1 

CA1017 

CDB011 



1731 




1731 


33 


1732 


33 


1733 


C2C911 


1736 


C01470 


1739 


37 


173A 


C9 



CD6B16 
C3AE19 



XD0Q1 



X0005 



CALL 
JZ 

EQU 

POP 

PUSH 

CALL 

JC 

JNZ 

EQU 

POP 

RET 



CRWTE 

XD005 

$ 

PSW 

PSW 

ZUTDC 

XD050 

XP010 

$ 

PSW 



XP010 



• ********** 

; WAIT FOR 
;********** 

EQU 

PUSH 

PUSH 

PUSH 

CALL 

MVI 

CALL 

POP 

POP 

POP 

JZ 

CALL 



******** 

DATACOM 

******** 

$ 

H 

D 

B 

ICTMN 

A # CBRKY 

ZBCTL 

B 

D 

H 

XD001 

BRKDC 
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;RE«OT£ MODE ENABLED? 
;N0 - EXIT 

;YES - RECALL THE CHARACTER 
;SAVE CONTENTS OF A AND FLAG 
^TRANSMIT THE CHAR IN A-REG 
;ERROR - REPORT IT 
;WAIT - TRY AGAIN 

;DONE - RECALL FLAGS AND CHA 
;RETURN 

TRANSFER TRIGGER {SETS 
FLAG TRUE) 
******************* 

- RETRY OPERATION * 
******************* 

;SAVE THE REGISTERS 



;l«QNIT0R CARTRIDGE TAPES 
;LOOK FOR A BREAK KEY HIT 
;8REAK KEY HIT? 

; (RESTORE REGISTERS) 



;N0 - TRY TO OUTPUT AGAIN 

;YES - BREAK DATA COMM 

FALL INTO ERROR EXIT ROUTINE 



INX 


SP 


INX 


SP 


JH1 


HNGUO 


CALL 


ZBELL 


STC 




RET 





****************************************** 

DATA COMM ERROR DETECTED - REPORT ERROR * 
****************************************** 

XD050 EQU $ 

;RESTORE STACK LEVEL WITHOUT 

; AFFECTING THE FLAGS 
; FATAL - HANG THE TERMINAL 
;NON-FATAL *• SOUND BELL 
;RETURN FAIL (C-FLA6 - TRUE) 



****************************************** 

XMOHME - HOME CURSOR INCLUDING TRANSMIT * 

ONLY FIELDS * 

****************************************** 

XOBME EQU $ 

CALL STDFO ;SET DATA COMM INPUT FLAG 

; TO ENABLE TRANSMIT ONLY 

; FIELDS 

4MP CRPH1 ;HO«E THE CURSOR 



FIELD ON SCREEN - SET SCREEN VALUES 



1741 




BT450 


EQU 


5t 


1741 


3AC0FF 




LDA 


CRROW 


1744 


32C7FF 




STA 


LTROW 


1747 


AF 




XRA 


A 


1748 


32C8FF 




STA 


LTCOL 



;SET LAST ROW VALUE TO 
;ROW FOUND 
;SET LAST COL DONE TO ZERO 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F ILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F ILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F ILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F IL E 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



FILE 20 
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FILE 20 

FILE 20 

FILE 20 

;SET ADDRESSES TO LOCATION FILE 20 

FILE 20 

;0F FIELD FILE 20 

;SET CURADR TO CORRESPOND FILE 20 

FILE 20 

;RETURN FILE 20 

FILE 20 



174B 


2AD5FF 




LHLD 


LA DDR 


174E 




BCKT5 


EQU 


$ 


174E 


22C9FF 




SHLD 


LTLIN 


1751 


2B 




DCX 


H 


1752 


22C3FF 




SHLD 


CRADR 


1755 


C9 




RET 





# 



1756 




1756 


2AD5FF 


1759 


22C9FF 


175C 




175C 


2ADEFF 


175F 


22C0FF 


1762 


F6FF 


1764 


C9 



FIELD NOT FOUND - RESTORE DISPLAY FILE 20 

; FILE 20 

BT5Q0 EW * FILE 20 

LHLD LADDR ;RESTORE LAST LINE ADDRESS FILE 20 

SHLD LTLIN FILE 20 

BT510 EQU $ FILE 20 

LHLD LDATA ;RESTORE CURRENT ROW AND FILE 20 

SHLD CRROW ; COLUMN FILE 20 

ORI 377a ;SET Z FALSE FILE 20 

RET ;RETURN NOT FOUND (NZ) FILE 20 

FILE 20 

;***************************************** FILE 20 

; CHAIN - SET H,L TO POINTER FROM MEMORY * FILE 20 

;***************************************** FILE 20 

FILE 20 

; ENTRY: H # L - ADDRESS OF POINTER FILE 20 

FILE 20 



r 



* 



; EXIT : A = LSB OF POINTER FILE 20 

; H,L = POINTER VALUE FILE 20 

FILE 20 



* 



1765 




1765 


EB 


1766 




1766 


7D 


1767 


E6F0 


1769 


6F 


176A 




176A 


7E 


176B 


23 


176C 


66 


176D 


6F 


176E 




176E 


C9 



CAINO EQU $ FILE 20 

XCH6 ;PUT ADDRESS INTO H,L FILE 20 

CAIN1 EQU $ FILE 20 

MOV A # L ;COMPUTE LOCATION Of NEXT FILE 20 

AN I 377Q-BLKSM ; BLOCK POINTER IN BLOCK FILE 20 

MOV L,A ;6ET THE NEXT BLOCK ADDRESS FILE 20 

CHAIN EQU $ FILE 20 

MOV A,M ;6ET LSB OF POINTER FILE 20 

I NX H FILE 20 

MOV H,M ;PUT MSB INTO H-RE6ISTER FILE 20 

MOV L,A ;PUT LSB INTO L-REGISTER FILE 20 

NFNCT EQU $ ; (NON-FUNCTION FOR ESC SEQ FILE 20 

RET ;RETURN FILE 20 

FILE 20 



r 



• ************************************************* f ILE 20 

; CHKFMS - CHECK FORMAT AND SOFT KEY DEFINE MODE * FILE 20 

; ************************************************* FILE 20 

; FILE 20 

; ENTRY; DON»T CARE FILE 20 

; FILE 20 

; EXIT s Z - NEITHER MODE ENABLED FILE 20 

A * FILE 20 

NZ - MODE ENABLED FILE 20 

A = -1 # SOFT KEY MODE ENABLED FILE 20 

A > 0, FORMAT MODE ONLY ENABLED FILE 20 

FILE 20 



» 



176F CKFMO EQU $ FILE 20 

176F 2E6C MVT L # SPOWL ;TURN OF SPOW LATCH FIRST FILE 20 

1771 36FF MV1 M,SOW0F FILE 20 

1773 CKFMS EQU $ FILE 20 

1773 3AAEFF LDA DPTYP ;6ET DISPLAY TYPE FLAG FILE 20 

1776 B7 ORA A ;SOFT KEY DISPLAY ON? FILE 20 

1777 CO RNZ ;YES - RETURN FILE 20 
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1778 
1778 
1776 
t770 



177E 
177E 
1781 
1782 
1784 
1787 
1788 



1789 
1789 
178C 
1780 



178E 
178E 
1791 
1793 

1796 
1796 
1799 
179C 
179F 
17A0 
17A1 
17A1 
17A2 
17A5 
17A8 
17AB 
17 AC 



3AF4FF 

E608 

C9 



3AF4FF 

2F 

E604 

216BFF 

B6 

C9 



3AAEFF 

B7 

C9 



CD7317 

3E20 

CC9516 



CO 8 91 7 

CAA117 

3AC0FF 

OF 

00 

AF 

3298FF 

C00718 

3A98FF 

B7 

FA9617 



CKFMT 



EQU $ 

10 A MFLG1 

AMI FRMAT 
RET 



;N0 - GET 

;MASK FOR 

; RETURN 



MODE FLAGS 
FORMAT FLAG 



AND 



;** 

; c 



*************************************** 

HKMLK - CHECK FOR MEMORY LOCK ENABLED * 
*************************************** 



i 
i 

i 
t 
e 

CKMLK 



ENTRY: 
EXIT : 



EQU 
LOA 
CMA 
AN I 
LXI 
ORA 
RET 



DON'T CARE 

Z *> MEMORY LOCK ENABLED 

NZ => MEMORY LOCK NOT ENABLED 

A,B,L DESTROYED 



$ 
MFLG1 

MMLOK 
H,MKROW 

M 



;6ET SOFT MODE FLAGS 

;MEMORY LOCK ENABLED FOR FUL 
;L0CKOUT IF MEMORY LOCK SE 
;AND MEMORY LOCK ROW = 

;RETURN 



;*********************************** 
; CHKSFK - CHECK FOR SOFT KEY MODE * 

; *********************************** 



r 
i 
t 

CKSFK 



EXIT : Z - NORMAL MOOE 
A = 
NZ - SOFT KEY DEFINE MODE 
A DESTROYED 



EQU $ 

LOA DPTYP 

ORA A 
RET 



;GET DISPLAY TYPE FLAG 
;SET Z FALSE IF SOFT KEY 
;0N AND RETURN 



************************ 

CD - CHARACTER DELETE * 
************************ 

LWRP EQU $ ;OELETE WITH WRAP AROUND 

CALL CKFMS ; FORMAT/SOFT KEY DEFINE MOOE 

MVI A,WPDEL ;(PUT WRAP FLAG IN A-REG) 



CI 

CRDEL EQU 
CALL 
JZ 
LDA 

RRC 
RNC 
C0010 EQU 
XRA 
STA 
CALL 
LDA 
ORA 

JM 

- ********** 

; ADJUST FO 

- ********** 



STMF2 ;N0 - SET WRAP AROUND FLAG 

$ 

CKSFK ;SOFT KEY DEFINE MODE? 
C0010 ;N0 - 00 DELETE 
CRROW ;YES - GET CURSOR ROW 

;IN DATA LINE? 

;N0 - RETURN 
$ ;YES - DO DELETE 

A ;ZERO SAVE AREA 

CHSAV 

CDOOO ;DELETE A CHARACTER 
CHSAV ;RECALL THE DELETED CHARACTE 
A ;WAS IT A DISPLAY CONTROL? 

CRDEL ;YES - CONTINUE DELETING 
********************************** 

R CHARACTERS BEYOND RIGHT MARGIN * 
********************************** 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F I LE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F ILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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17AF 
17B2 
17B5 
17B6 
17B7 
17B8 
17B9 
17BA 
17BC 
17BD 
17BE 
17BF 
17C1 



17C2 
17C5 
17C6 
17C8 
17C9 
17CC 



21C1FF 

3ABEFF 

BE 

D8 

46 

77 

57 

2EF4 

4E 

C5 

79 

E6FD 

77 



216FFF 

7E 

E6DF 

BE 

CAFE17 

77 



17CD 




17C0 


3E20 


17CF 


3298FF 


17D2 


21C0FF 


17D5 


34 


17D6 


23 


17D7 


3ABFFF 


170A 


77 


17DB 


CD2E07 


17DE 


CC1618 


17E1 


21C0FF 


17E4 


35 


17E5 


23 


17E6 


3ABEFF 


17E9 


77 


17EA 


3A98FF 


17ED 


FE2Q 


17EF 


CAFE17 


17F2 


0600 


17F4 


CD941E 


17F7 


3A98FF 


17 FA 


B7 


17F6 


FACD17 



17FE 




17FE 


C1 


17FF 


21C1FF 


1802 


70 


1803 


2EF4 


1805 


71 


1806 


C9 



LXI 

LDA 

CMP 

RC 

MOV 

MOV 

MOV 

MVI 

WOV 

PUSH 

wov 

ANI 
MOV 



H,CRCOL 

RTM6N 

M ;CURSOR BEYOND RIGHT MARGIN? 

/YES - DON"T CHECK yRAP 
B,M /NO - SAVE CURRENT COLUMN 
M,A /SET COLUMN TO RIGHT MARGIN 
D # A /SAVE RIGHT MARGIN VALUE 
L # MFLG1-BASE 

C # M ;SAVE SOFT MODE FLAGS STATE 
B /AND CURRENT COLUMN 

A # C ;FORCE THE INSERT CHARACTER 
377Q-ISCHR /MODE OFF 
M # A 



/ ************************************* ****** 
; DELETE PERFORMED - CHECK FOR WRAP AROUND * 
-******************************************* 

LXI H # ML6S2 ;6ET TERMINAL MODE FLAGS 

MOV A,R ;MASK OUT DELETE WRAP FLA6 

ANI 377&-WPDEL 

CMP M /DELETE WRAP AROUND ENABLED? 

Jl CD050 ;N0 - EXIT 

MOV M,A /YES - UPDATE MODE FLAGS 

/♦♦♦♦•♦A************************************* 

/ TRANSFER A CHRACTER UP FROM THE NEXT LINE * 
• ******************************************** 



CD020 



EQU 

MVI 

STA 

LXI 

INR 

I NX 

LDA 

MOV 

CALL 

CZ 

LXI 

DCR 

INX 

LDA 

MOV 

LDA 

CPI 

JZ 

MVI 

CALL 

LDA 

ORA 

JM 



$ 

A # ABLNK 

CHSAV 

H,CRROW 

M 

H 

LTMGN 

M,A 

RADR4 

CRDL1 

H^CRROW 

M 

H 

RTMGN 

M,A 

CHSAV 

ABLNK 

CD 050 

B # 

DSPC2 

CHSAV 

A 

CD020 



;PRESET DELETED CHARACTER 

;T0 A BLANK 
;SET TO DELETE FIRST 

/CHARACTER AT LEFT MARGIN 

;FROM NEXT ROW 



/CHARACTER EXIST? 
;YES - DELETE IT 
/RESTORE ROW NUMBER AND SET 
/COLUMN TO RIGHT MARGIN 



/GET THE DELETED CHARACTER 

/BLANK CHARACTER DELETED? 

/YES - EXIT 

/NO - SET TO FORCE ENHANCE 

/DISPLAY THE CHARACTER 

/RECALL THE DELETED CHARACTE 

/WAS IT ASCII? 

/NO - TRANSFER ANOTHER BYTE 



/ ******************************************** 
/ EXIT - RESTORE CURSOR COLUMN AND **MDFL61 M * 
/ ******************************************** 



CDQ50 



EQU 
POP 
LXI 
MOV 
MVI 
MOV 
RET 



$ 
B 
B,CRCOL 

M,B 



/RECALL ORIGINAL VALUES 



RESTORE CURSOR COLUMN 



L,MFLG1-BASE 

M,C /RESTORE 

/RETURN 



'MDFL61 



FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 



20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 



FILE 20 
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FILE 20 

FILE 20 

FILE 20 

1807 COOOO EQU $ FILE 20 

1807 C02EO7 CALL RADR4 ;DOES CHARACTER EXIST? FILE 20 
180A CO RNZ ;N0 - RETURN FILE 20 

1808 CD9718 CALL CB500 ;SKIP OVER SINGLE DISPLAY FILE 20 

; ENHANCEMENT CODE FILE 20 

180E CD7817 CALL CKFMT ; FORMAT MODE? FILE 20 

1811 CA1618 JZ C&100 ;N0 - DELETE THE CHARACTER FILE 20 

1814 04 INR B ; CURSOR IN PROTECTED FIELD? FILE 20 

1815 C8 RZ ;YES - RETURN FILE 20 

;**********#*****#*#************* FILE 20 

; CHRDL1 - DELETE ONE CHARACTER * FILE 20 

;******************************** FILE 20 

; FILE 20 

; ENTRY: C = CHARACTER COLUMN POSITION FILE 20 

D,E * ADDRESS OF CHAR TO BE DELETED FILE 20 

; FILE 20 

; EXIT : ALL REGISTERS DESTROYED FILE 20 

; CHSAV = CHARACTER DELETED (UNCHANGED FILE 20 

IF A CHARACTER HAS NOT BEEN DELETED) FILE 20 

FILE 20 

FILE 20 

FILE 20 

;GET CHARACTER TO BE DELETED FILE 20 

;IS IT EOL? FILE 20 

;YES - RETURN FILE 20 

;SAVE THE DELETED CHARACTER FILE 20 

;H,L = ADDR OF CHAR TO FILL FILE 20 

;D„E = ADDR OF CHAR TO MOVE FILE 20 

;#*******#***************************#******* FILE 20 

; MOVE CHARACTERS DOWN TO PREVIOUS POSITION * FILE 20 

;******************************************** FILE 20 

181F CD110 EQU $ FILE 20 

181F CDBBOB CALL NTCHR ;6ET THE NEXT CHARACTER FILE 20 

1822 C27118 JNZ CD210 ;EOL LINK - TERMINATE DELETE FILE 20 

1825 47 MOV B,A ;SAVE CHARACTER IN B-REGISTE FILE 20 

1826 FECO CPI EHLIM+1 ;ASCII OR ENHANCEMENT CODE? FILE 20 
1828 DA4618 JC CD120 ;YES - SEE IF PAST MARGIN FILE 20 

J********************************************* FILE 20 

; FORMAT CONTROL CODE FOUND - CHECK FUNCTION * FILE 20 

;*******************#***#*■**■******.*****#****** FILE 20 

;END OF LINE? FILE 20 

;YES - TERMINATE DELETE FILE 20 

;END OF LINE FILL? FILE 20 

;YES - TERMINATE DELETE FILE 20 

; FORMAT MODE & DELETE ASCII? FILE 20 

;N0 - MOVE NEW CHARACTER FILE 20 

;YES - GET CHAR TO BE MOVED FILE 20 

;IS IT START PROTECT? FILE 20 

;YES - CLEAR REST OF FIELD FILE 20 

AND TERMINATE DELETE FILE 20 

;TYPE DEFINITION? FILE 20 

;YES - SKIP OVER CHARACTER FILE 20 

FILE 20 

;************************************#** FILE 20 

; CHARACTER TO BE MOVED - CHECK MARGIN * FILE 20 

;****■*********************************** FILE 20 

1846 CD120 EQU $ FILE 20 

1846 3ABEFF LDA RTMGN FILE 20 

1849 B9 CMP C ;CHAR FROM BEYOND MARGIN? FILE 20 

184A C25418 JNZ CD13Q ;N0 - CONTINUE DELETE FILE 20 



1816 




CRDL1 


EQU $ 


1816 




CD100 


EQU $ 


1816 


1A 




LDAX D 


1817 


FECC 




CPI EOL 


1819 


C8 




RZ 


181A 


3298FF 




STA CHSAV 


181D 


62 




MOV H„D 


181E 


6B 




MOV L # E 



182B 


FECC 


182D 


CA8518 


1830 


FEC3 


1832 


CA6D18 


1835 


CD8E18 


1838 


CA4618 


183B 


78 


183C 


FECO 


183E 


CA1F19 


1841 


FEC5 


1843 


F21F18 



CPI 


EOL 


JZ 


CD250 


CPI 


FILL 


JZ 


CD 200 


CALL 


CD400 


JZ 


CD120 


MOV 


A # B 


CPI 


STPR 


JZ 


CER02 


CPI 


ALPHA 


Jp 


CD110 



r 
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184D 3A98FF LDA CHSAV ^YES - SET DELETED CHARACTER 

1850 B7 ORA A ;IS IT ASCII? 

1851 3620 MVI M,ABLNK ;(SET BLANK. BY DEFAULT) 

1853 FO RP ;YES - TERMINATE DELETE 

; NO - PUT CHAR INTO PREV CHAR 

J************************************************* 

; MOVE CHARACTER INTO PREVIOUS CHARACTER POSITON * 
' ************************* ************************ 

1854 CD130 EQU $ 

1854 70 MOV M # B ;REPLAC£ PREVIOUS CHARACTER 

1855 78 MOV A,B 

1856 B7 ORA A ;IS CHARACTER ASCII? 

1857 FA5B18 JM CD14G ; NO - ADVANCE TO NEXT CHAR 
185A OC INR C ;YES - INCREMENT COLUMN # 
185B CD140 EQU $ 

185B C0BAOB CALL NTCHO ;6ET THE NEXT CHARACTER 

185E FEC5 CPI ALPHA ;TYPE DEFINITION? 

1860 DA6918 JC CD150 ;N0 - CONTINUE MOVING CHARS 

1863 CD8E18 CALL CD400 ; FORMAT MODE & DELETE ASCII? 

1866 C4BB0B CNZ NTCHR ;YES - ADVANCE TO NEXT CHAR 
1869 CD15Q EQU $ 

1869 EB XCHG ; RESTORE REGISTER POSITIONS 
186A C31F18 JMP CD110 ;MOVE NEXT CHARACTER 

r 

• *********************************************** 

; END OF LINE FILL CHARACTER FOUND - CLEAR THE * 

; REST OF THE LINE * 

; *********************************************** 

186D CD200 EQU $ 

186D CD6517 CALL CAINS) ;GET END OF LINE LINK IN H # L 

1870 EB XCHG ^EXCHANGE H # L AND D,E 

; ********************************************* 

; END OF LINE LINK FOUND - CLEAR THE REST OF * 
; THE LINE * 

********************************************* 

S 

CD400 ; FORMAT MODE & DELETE ASCII? 

;(SET D>E TO LAST CHAR ADD 

H ;H,L TO LSB OF NEXT LINE 

; LINK> 

1876 C28918 JNZ CD260 ;YES - CLEAR REST OF FIELD 

; TO LS8 OF NEXT LINE LINK 

; RECALL DELETED CHARACTER 

;WAS IT ASCII? 

;YES - END LINE WITH EOL 

;N0 - END LINE WITH FILL 

;CLEAR REST OF LINE 

# 

; ***************************************** 

; EOL FOUND - CLEAR THE REST OF THE LINE * 
;***************************************** 

1885 CD250 EQU $ 

1885 CD6517 CALL CAINO ;GET EOL LINK IN H,L 

1888 2B DCX H ;SET TO LSB OF NEXT LINE LIN 

1889 CD260 EQU $ ;CLEAR THE REST OF THE LINE 
1889 3ECC MVI A^EOL ;TERMINATING WITH AN EOL 
188B C3E318 JMP CERL1 

; ********************************************* 
; CHD400 - CHECK FOR FORMAT MODE ENABLED AND * 
; DISPLAYABLE ASCII CHARACTER DELETED * 



1871 




CD210 


EQU 


1871 


CD8E18 




CALL 


1874 


EB 




XCHG 


1875 


26 




DCX 



1879 


3A98FF 


187C 


B7 


187D 


F28918 


1880 


3EC3 


1882 


C3E318 



LOA 


CHSAV 


ORA 


A 


JP 


CD 260 


MVI 


A # FILL 


JMP 


CERL1 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


2G 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


F ILE 


20 


FILE 


20 



188E 




CD40G 


EQU 


$ 


188E 


3A98FF 




LDA 


CHSAV 


1891 


B7 




ORA 


A 


1892 


F27817 




JP 


CKFHT 


1895 


AF 




XRA 


A 


1896 


C9 




RET 





FILE 20 
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FILE 20 

FILE 20 

FILE 20 

;*****************************##*******#**#*** FILE 20 

; FILE 20 

i EXIT : N2 - FORMAT MODE AND DELETE ASCII FILE 20 

; Z - NOT FORMAT MODE OR NON-DISPLAY FILE 20 

; CODE DELETED FILE 20 

FILE 20 
FILE 20 

;SET CHARACTER DELETED FILE 20 

;IS IT DISPAYABLE ASCII FILE 20 

;YES - CHECK FOR FORMAT MODE FILE 20 

;N0 - RETURN Z FILE 20 

FILE 20 

; FILE 20 

;*********************************************** FILE 20 

; CHD500 - CHECK FOR DISPLAY EHANCEMENT DELETE * FILE 20 

;**********************#****#*********#**#****** FILE 20 

FILE 20 

; ENTRY: D,E = CHARACTER TO BE DELETED FILE 20 

; FILE 20 

; EXIT : D,E = ACTUAL CHARACTER TO DELETE FILE 20 

; A # L DESTROYED FILE 20 

FILE 20 

CD500 EQU $ FILE 20 

LDAX D ;GET CHARACTER TO BE DELETED FILE 20 

ADD A ;DISPLAY ENHANCEMENT CODE? FILE 20 

RNC ;ASCII - LET IT BE DELETED FILE 20 

RM ;FORMAT CONTROL - DELETE IT FILE 20 

HVI L # 2 ;YES - LOOK FOR POSSIBLE FILE 20 

PUSH D ; DOUBLE EHANCEMENT CODE FILE 20 

CD510 EfiU $ FILE 20 

CALL NTCHR ;6ET THE NEXT CHARACTER FILE 20 

JNZ CD 51 5 ;EXIT IF EOL LINK FILE 20 

ADD A ENHANCEMENT CODE? FILE 20 

JNC CD520 ;ASCII - CHECK FOR SCAN DONE FILE 20 

JM CD510 ; FORMAT CONTROL - CONTINUE FILE 20 

CD515 E6U $ FILE 20 

POP D ;YES - DELETE ENHANCEMENT FILE 20 

RET FILE 20 

;****************#***************************** FILE 20 

; ASCII CHARACTER FOUND - CHECK FOR SCAN DONE * FILE 20 

;************* ********************************* FILE 20 

18AD CD520 EGU $ FILE 20 

18AD 2D DCR L ;NEXT ASCII CHARACTER FOUND? FILE 20 

18AE C29E18 JNZ CD510 ;N0 - CONTINUE SCAN FILE 20 

;******************************************* FILE 20 

; NEXT ASCII CHARACTER OR EOL LINK FOUND - * FILE 20 

; DON*T DELETE DISPLAY ENHANCEMENT CODE * FILE 20 

;******************************************* FILE 20 

18B1 D1 POP D ;RECALL 0RI6INAL ADDRESS FILE 20 

18B2 C3BB0B .IMP NTCHR ;SET TO DELETE NEXT CHAR FILE 20 

; FILE 20 

J******************************************** FILE 20 

; CHRDL2 - DELETE CHARACTER W/RE6ISTER SAVE * FILE 20 

********************************************* FILE 20 

; FILE 20 

; ENTRY: C = CHARACTER COLUMN POSITION FILE 20 

; D,E = ADDRESS OF CHAR TO BE DELETED FILE 20 

; FILE 20 

; EXIT : B,C = B,CCENTRY> FILE 20 

; D,£ = D,E (ENTRY) + 1 FILE 20 



1897 




1897 


1A 


1898 


87 


1899 


DO 


189A 


F8 


189B 


2E02 


189D 


D5 


189E 




189E 


CDBBOB 


18A1 


C2AB18 


18A4 


87 


18A5 


D2AD18 


18A8 


FA9E18 


18AB 




18AB 


D1 


18AC 


C9 
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18BE 
18BE 
18C1 
18C2 
18C5 
18G8 



A,H,L DESTROYED 



18B5 


CRBL2 EQU 


$ 


18B5 


C5 


PUSH 


e 


18B6 


05 


PUSH 


D 


18B7 


GD1618 


CALL 


CRDL1 


18BA 


D1 


POP 


D 


18BB 


C1 


POP 


B 


18BC 


13 


INX 


D 


18BD 


C9 


RET 





;SAVE REGISTERS B,C 

;ANB D,E 
;DELETE THE CHARACTER 



; RESTORE REGISTER 

;AND B # C 
; INCREMENT D,E 
; RETURN 



D,E 



********************** 

CLEARL - CLEAR LINE * 
********************** 



r 




CEARL 



ENTRY 
EXIT 



BON*T CARE 



CD2EQ7 

CO 

CD7317 

CAD618 

F21C19 



EQU 

CALL 

RNZ 

CALL 

J I 

JP 



= -1, 

= 0, 
> 0, 

$ 

RADR4 

CKFMS 
CERLA 
CL400 



ROW NOT FOUND 

CHARACTER FOUND AND CLEAR DONE 

COLUMN PAST EOL # CLEAR NOT DONE 



;DOES ROW EXIST? 
;N0 - RETURN 
; FORMAT /SOFT KEY 
;N0 - DO NORMAL 
; FORMAT MODE - C 



;************************************* 

; SOFT KEY DEFINE MODE - CLEAR DATA RO 

.************************************* 



DEFINE MODE 
CLEAR LINE 
LEAR FIELD 
********* 

WS ONLY * 
********* 



18CB 


3AC0FF 


18CE 


OF 


18CF 


DO 


18D0 


1A 


18D1 


FECI 


18D3 


CCBBOB 


18D6 




18D6 


CD8917 


18D9 


3E0C 


18DB 


CC0870 


18DE 


3ECC 



CERLA 



LDA 


CRROW 


RRC 




RNC 




LDAX 


D 


CPI 


ENDPR 


cz 


NTCHR 


EQU 


$ 


CALL 


CKSFK 


MV1 


A,STFRN 


CZ 


ZBCTL 


MVI 


A,EOL 



;6ET CURSOR ROW 

;IN DATA LINE COI 

;N0 - INHIBIT CLI 

;6ET FIRST CHARAI 

;£N0 PROTECT? 

;YES - SKIP TO 1ST ASCII CHA 



IBD ROW #)? 
EAR 
iCTER 



;SOFT KEY DEFINE 

;(SET CONTROL 
;N0 - UPDATE FOR 
; CLEAR LINE WITH 



MODE? 
CODE) 
EIGN MODE 

"EOL" ENDIN 



■ ****************************** 
; CLERLO - CLEAR REST OF LINE * 

;****************************** 



ENTRY: A = TERMINATOR CHARACTER 

D,E = CLEAR STARTING ADDRESS 



EXIT : 



18E0 




18 EO 


2AC9FF 


18E3 




18E3 


328FFF 


18E6 


44 


18E7 


4D 


18E8 


7B 


18E9 


E6F0 


18EB 


6F 



CERLO 



CERL1 



* 


SEE "CLEARL 


EQU 


$ 


LHLD 


LTLIN 


EQU 


$ 


STA 


FLCHR 


MOV 


B,H 


MOV 


C,L 


MOV 


A,E 


AN I 


377Q-BLKSM 


MOV 


L,A 



;GET CURRENT LINE ADDRESS 

;SAVE TERMINATOR CHARACTER 
;SET B,C TO ADDRESS OF NEXT 

;LINE POINTERS LSB 
;SET H,L TO ADDRESS OF NEXT 

;BLOCK LINK IN CURRENT 

;BLOCK 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 



FILE 20 
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FILE 20 

FILE 20 

FILE 20 

FILE 20 

;GET NEXT BLOCK FILE 20 

;SET B,C TO MSB OF NEXT LINE FILE 20 

;PQINTER FILE 20 

FILE 20 

FILE 20 

FILE 20 

;SAVE LSB OF LINK'S MSB ADBR FILE 20 

FILE 20 

FILE 20 

;SAVE ADDRESS OF NEXT BLOCK FILE 20 

FILE 20 



18EC 


62 


18ED 


7E 


18EE 


03 


18EF 


71 


18F0 


23 


18F1 


4E 


18F2 


70 


18 F3 


45 


18F4 


61 


18F5 


6F 


18F6 


E5 



MOV 


H,D 


MOV 


A,M 


INX 


B 


MOV 


M,C 


INX 


H 


MOV 


C,W 


MOV 


M,B 


MOV 


B,L 


MOV 


H„C 


MOV 


L,A 


PUSF 


I H 



I 



J***************************************** FILE 20 

; INSERT FILL CHARS BETWEEN LINK AND EOL * FILE 20 

;***************************************** FILE 20 

18F7 7B * MOV A,E ;COMPUTE NO, OF FILLS FILE 20 

18F8 E60F ANI BLK SM FILE 20 

18FA D602 SOI 2 ;LESS THAN 2? FILE 20 

18FC FA0C19 JM CL160 ;Y£S - RELEASE THE BLOCK FILE 20 

18FF 58 MOV E,B ;SET H,L TO ADDRESS OF MSB FILE 20 

1900 EB XCHG ;PART OF NEXT BLOCK POINTE FILE 20 

1901 CL120 EQU $ FILE 20 

1901 23 INX H ;ADVANCE TO NEXT BYTE FILE 20 

1902 36C3 MVI « # FILL ;STORE FILL CHARACTER FILE 20 

1904 3D DCR A ;ALL BYTES DONE? FILE 20 

1905 F20119 JP CL120 ;N0 - CONTINUE FILLING FILE 20 
1908 3A8FFF LDA FLCHR ;YES - GET AND STORE FINAL FILE 20 
190B 77 MOV M,A ;FILL CHARACTER FILE 20 

J******************************** FILE 20 

; RELEASE EXCESS DISPLAY BLOCKS * FILE 20 

;******************************** FILE 20 

190C CL160 EQU $ FILE 20 

190C D1 POP D ; RECALL ADDRESS OF NEXT BLOC FILE 20 

190D 7B MOV A,E FILE 20 

190E 2F CMA ;IS THE LINK AN EOL LINK FILE 20 

190F E60F ANI BLKSM ; (LOW 4 BITS NOT ALL ONES) FILE 20 

1911 C21A19 JNZ CL310 ;YES - EXIT FILE 20 

1914 1B DCX D ;N0 - ADO BLOCKS TO FREE LIS FILE 20 

1915 1B DCX D ;SET ADDRESS TO LSB OF NEXT FILE 20 

1916 1B DCX D ;L1NE FIELD IN FIRST BLOCK FILE 20 

1917 CDF206 CALL PTLIN ;ADD BLOCKS TO FREE LIST FILE 20 
191A CL310 EQU $ FILE 20 
191A AF XRA A ; SET ZERO FLAG FOR CLEARS FILE 20 
191B C9 RET ;RETURN FILE 20 

FILE 20 



* 



191C 




CL400 


EQU 


$ 


191C 


04 




INR 


B 


191 D 


C8 




RZ 





r ************************************** FILE 20 

; CLEAR LINE FUNCTION FOR FORMAT MODE * FILE 20 

************************************** FILE 20 

FILE 20 

;CURSOR IN PROTECTED FIELD? FILE 20 

;YES - RETURN, - DON'T DO CLEA FILE 20 

• ********************************************* FILE 20 

; CLEAR UNPROTECTED FIELD * FILE 20 

; D # E = ADDRESS OF FIRST ASCII CHAR IN FIELD * FILE 20 

;********************************************* FILE 20 

191E CER01 EQU S FILE 20 

191E EB XCHG FILE 20 

191F CER02 EQU $ FILE 20 

191F EB XCHG ;PUT CHARACTER ADDR INTO D,E FILE 20 

1920 13 INX D ;SET TO PREVIOUS CHARACTER FILE 20 



1921 




1921 


CDBBOB 


1924 


C24C19 


1927 


87 


1928 


0A3219 


192B 


3E20 


192D 


12 


192E 


OC 


192F 


C32119 



FILE 20 
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FILE 20 
FILE 20 
FILE 20 

CL510 EQU $ FILE 20 

CALL NTCHR ;6ET THE NEXT CHARACTER FILE 20 

JNZ CL580 ;CHECK EXIT IF EOL LINK FILE 20 

ADD A ; AS CI I? FILE 20 

JC CL54Q ;N0 - CONTINUE FILE 20 

MVI A,ABLNfC ;YES - STORE BLANK FILE 20 

STAX D FILE 20 

INR C ;INCREMENT COLUMN FILE 20 

JMP CL510 ;TRY NEXT CHARACTER FILE 20 

;********************** FILE 20 

; NON-ASCII CHARACTER * FILE 20 

;********************** FILE 20 

1932 CL540 EQU $ FILE 20 

1932 FA3B19 JM CL550 ;NOT DSPLY CNTRL - CHECK MORE FILE 20 

• ********************************** FILE 20 

; DELETE DISPLAY ENHANCEMENT CHAR * FILE 20 

;********************************** FILE 20 

1935 CL544 EQU $ FILE 20 

1935 CDB518 CALL CRDL2 ; DELETE ENHANCEMENT CODE FILE 20 

1938 C32119 JMP CL510 ;CONTINUE CLEARING FILE 20 

; FILE 20 

; ******************************* FILE 20 

; NOT ASCII OR DISPLAY CONTROL * FILE 20 

;******************************* FILE 20 

CL550 EQU $ FILE 20 

RAR ;RESTORE CHARACTER FILE 20 

CPI FILL ;END OF LINE FILL? FILE 20 

JZ CL510 ;YES - GO TO NEXT CHARACTER FILE 20 

CPI STPR ;START PROTECT? FILE 20 

RZ ;YES - TERMINATE CLEAR FILE 20 

CPI SPFLG+1 ;FOR«AT CONTROL CODE? FILE 20 

JC CL544 ;YES - DELETE IT FILE 20 

JMP CL510 ;N0 - GO TO NEXT CHARACTER FILE 20 

;********************* FILE 20 

; LINK FOUND * FILE 20 

; MOVE TO NEXT BLOCK * FILE 20 

; ********************* FILE 20 

CL580 EQU $ FILE 20 

LDAX D ;GET NEXT LINE LINK'S MSB FILE 20 

CPI EOP ;END OF DISPLAY LIST? FILE 20 

RZ ;YES - RETURN FILE 20 

CALL FDSR2 ; CONTINUATION FIELD? FILE 20 

JZ CL510 ;YES - CONTINUE CLEAR FILE 20 

XRA A ;N0 - TERMINATE CLEAR AND FILE 20 

RET ;RETURN END ON END OF FIEL FILE 20 

; FILE 20 

;*************************** FILE 20 

DSPMSG - DISPLAY MESSAGE * FILE 20 

*************************** FILE 20 

FILE 20 

ENTRY: NC - ADD MESSAGE TO NORMAL DISPLAY FILE 20 

C - REPLACE DISPLAY WITH MESSAGE FILE 20 

MSGPT1-MSGPT8 = POINTERS TO MESSAGE FILE 20 

SECTIONS FILE 20 

FILE 20 

EXIT : ALL REGISTERS DESTROYED FILE 20 

FILE 20 

1958 DPMSO EQU $ ;SET C-FLA6 TO FORCE DISPLAY FILE 20 

1958 37 STC .-REPLACEMENT BY MESSAGE FILE 20 

1959 DPMS1 EQU $ FILE 20 



193B 




193B 


1F 


193C 


FEC3 


193E 


CA2119 


1941 


FECO 


1943 


C8 


1944 


FEC5 


1946 


DA3519 


1949 


C32119 



194C 




194C 


1A 


194D 


FECE 


194F 


C8 


1950 


CD 061 B 


1953 


CA2119 


1956 


AF 


1957 


C9 



t 



* 



1959 


22F1FF 






SHLD 


MGPT1 


;SET MESSAGE POINTER 1 


195C 




DPMS6 


EfiU 


$ 




195C 


D27D19 






JHC 


DM50Q 


;ADD MESSAGE TO DISPLAY 


195F 


014FFE 






LXI 


B,DPSTR 


;SET DESTINATION POINTER 


1962 


21F2FF 






lxi 


H„MGPT1 + 1 


;SET INITIAL TABLE POINTER 






r 


TRANSFER 


MESSAGE TO MESSAGE BUFFER 


1965 




DS010 


EQU 


$ 




1965 


56 






MOV 


D,M 


;GET POINTER TO MESSAGE 


1966 


2B 






OCX 


H 




1967 


5E 






MOV 


E # M 




1968 


2B 






OCX 


H 


;SET TO NEXT POINTER 


1969 


EB 






XCHG 




;PUT POINTER INTO H>L 


196A 


CD7C0B 






CALL 


MVCHR 


;XFR MESSAGE PART TO BUFFER 


196D 


EB 






XCHG 




;PUT POINTER TO TABLE IN H,L 


196E 


CA6519 






JZ 


OS 010 


;D0 NEXT PART IF NOT EOP END 


1971 


214FFE 






LXI 


H,DPSTR 


;SET DISPLAY POINTER TO 


1974 


22FEFF 






SHLD 


DSPST 


;MESSAGE AREA 


1977 


3E18 






MVI 


A,MXR0W*1 


;REMOVE CURSOR FROM DISPLA 


1979 


322780 






STA 


ICRRW 




197C 


C9 






RET 




;RETURN 



FILE 20 
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FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

ADD MESSAGE TO NORMAL DISPLAY FILE 20 

FILE 20 

FILE 20 

; FORCE NORMAL DISPLAY ON FILE 20 

;SET INITIAL TABLE POINTER FILE 20 

FILE 20 

;GET POINTER TO MESSAGE FILE 20 

FILE 20 

FILE 20 

;SET TO NEXT POINTER FILE 20 

;SAVE TABLE POINTER FILE 20 

;PUT MESSAGE POINTER IN H,L FILE 20 

;XFR MESSAGE TO THE DISPLAY FILE 20 

;RECALL TABLE POINTER FILE 20 

;D0 NEXT PART IF NOT EOP END FILE 20 

; FALL INTO "RSTBSP" TO FILE 20 

; FORCE DISPLAY ON FILE 20 

;********************************** FILE 20 

; RSTDSP - RESTORE NORMAL DISPLAY * FILE 20 

;********************************** FILE 20 

; FILE 20 

; ENTRY: DON'T CARE FILE 20 

FILE 20 

; EXIT : PROCESSOR FLAGS UNCHANGED FILE 20 

H,L DESTROYED FILE 20 



197D 




DM500 


EQU 


$ 


197D 


CDC10C 




CALL 


SKYOF 


1980 


21F2FF 




LXI 


H # M6PT1+1 


1983 




DM510 


EQU 


$ 


1983 


56 




MOV 


D,W 


1984 


2B 




DCX 


H 


1985 


5E 




MOV 


E,M 


1986 


2B 




DCX 


H 


1987 


E5 




PUSH 


H 


1988 


EB 




XCHG 




1989 


CD4C0F 




CALL 


XS2DS 


198C 


E1 




POP 


H 


198D 


CA8319 




JZ 


DM510 



r 



r 



r 



FILE 20 

1990 RTDSP EQU $ FILE 20 

1990 2ACBFF LHLD TPLIN ;GET TOP LINE ADDRESS FILE 20 

1993 2B DCX H ;SET TO FIRST CHAR ADDRESS FILE t 

1994 22FEFF SHLD DSPST ;SET DISPLAY START POINTER FILE 20 
1997 C31D0F JMP DSLN1 ;SET THE DISPLAY CURSOR FILE 20 

; FILE 20 

;***************************** FILE 20 

; FORMON - ENTER FORMAT MODE * FILE 20 

;***************************** FILE 20 

199A FRMON E«U $ FILE 20 
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199A 


CDC2GF 


CALL 


CEBIT 


199D 


CO 


RNZ 




199E 


214FQ0 


LXI 


H^MXCOL 


19A1 


22BEFF 


SHLB 


RTMGN 


19A4 


3E08 


MVI 


A,FRMAT 


19A6 


CB0E70 


CALt 


ZTMD1 



ERRORS = PAGE 11? 



;EDIT KOBE? 

;YES - INHIBIT FORMAT MODE 

;N0 - SET MARGINS TO ENDS OF 

;DISPLAY 
;TURN ON FORMAT MODE FLAG 

SET CURSOR TO FIRST 
UNPROTECTED FIELD 



; *********************************** 

; CURPH - CURSOR POINTER HOME (UP) * 
;*********************************** 



19A9 


C 


19A9 


3EFE 


19AB 


CDE015 

g 


19AE 


g 

C 


19AE 


CD771E 


19B1 


CD8917 


19B4 


C2141A 


19B7 


32A3FF 


19BA 


3D 


19BB 


326CFF 


19BE 


CD460B 


19C1 


CA251A 


19C4 



54 


19C5 


5D 


19C6 


23 


19C7 


23 


19C8 


4E 


19C9 


23 


19CA 


46 


19CB 


2ACBFF 


19CE 


23 


19CF 


23 


19D0 


7E 


19D1 


B7 


19D2 


CAFF19 



CURPH 



CRPH1 



E6U 
MVI 
CALL 



E6U 

CALL 

CALL 

JNZ 

STA 

DCR 

STA 

CALL 

JZ 



A,377Q-SAC0M 
CRDFL 



;CLEAR DATACOM INPUT 
;FLAG TO DISABLE TRANSMIT 
ONLY FIELDS 



$ 

CRPRT 

CKSFK 

HP060 

TLINO 

A 

SPOWL 

MKSCH 

HP100 



;SET CURSOR TO LEFT MARGIN 

;SOFT KEY MODE? 

;YES - SET CURSOR ONLY 

;N0 - SET TOP LINE # TO ZERO 

;RESET SPOW LATCH 

;DISPLAY AREA LOCKED? 
;N0 - HOI«lE TO FIRST LINE 



DISPLAY LOCK ON - CHAN6E ONLY UNLOCKED LINES 



MOV 

MOV 

INX 

INX 

MOV 

INX 

MOV 

LHLD 

INX 

INX 

MOV 

ORA 

JZ 



D # H 
EVL 

H 

H 

C,M 

H 

8^ M 

TPLIN 

H 

H 

A # M 

A 

HP 050 



;SAVE ADDRESS OF LSB PART OF 
;NEXT LINE POINTER IN FIRS 
; UNLOCK ED LINE 

;GET ADDRESS OF LAST LOCKED 

;ROW 



;GET PTR TO TOP DSPLY LINE 
;GET ADDRESS OF FIRST LINE 
; ABOVE TOP DISPLAY LINE 

;ANY LINES ABOVE DISPLAY? 
;N0 - POSITION CURSOR ONLY 



LINK SPLIT PARTS TOGETHER 



19D5 


3600 


19D7 


23 


19D8 


66 


19D9 


6F 


19DA 


1B 


19DB 


73 


19DC 


23 


19DD 


72 


19DE 


EB 


19DF 


23 


19E0 


23 


19E1 


23 


19E2 


77 


19E3 


23 



MVI 

INX 

MOV 

MOV 

DCX 

MOV 

INX 

MOV 

XCHG 

INX 

INX 

INX 

MOV 

INX 



m,o 

H 

H,M 
L,A 
D 

M,E 

H 

M,D 

H 

H 

H 

M,A 

H 



;ZERO PREV LINE PTR OF TOP L 

;SET H # L TO FIRST LINE ABOVE 

;DISPLAY 
;SET ITS NEXT LINE POINTER T 

;FIRST CHARACTER OF FIRST 
^UNLOCKED LINE 

;SET PREVIOUS LINE POINTER 
;FIRST UNLOCKED LINE TO 
; FIRST LINE ABOVE DISPLAY 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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19E4 


72 


19E5 


2A9FFF 


19E8 


EB 


19E9 


2ACBFF 


19EC 


229FFF 


19EF 


62 


19F0 


6B 


19F1 


23 


19F2 


23 


19F3 


71 


19F4 


23 


19F5 


70 


19F6 


60 


19F7 


69 


19F8 


23 


19F9 


42 


19FA 


4B 


19FB 


OB 


19FC 


CD140F 



MOV M,D 
LHLD FLINE 
XCHG 

LHLD TPLIN 
SHLD FLINE 
MOV K,D 
MOV L,E 
INX H 
INX H 
MOV M,C 
INX H 
MOV M,B 
MOV H # B 
MOV L, C 
INX H 
MOV B, D 
MOV C,E 
DCX B 
CALL DSLNK 



REPLACE CONTENTS OF FLINE 
;WITH VALUES FROM TOPLIN 



;SET PREVIOUS LINE POINTER 
;CURRENT TOP LINE TO POINT 
;T0 LAST LOCKED ROW 



SET HvL TO MSB 



PART OF 
IN LAST 



NEXT 



;LINE POINTER 
;LOCKED ROW 
;SET NEXT LINE POINTER TO 
;P01NT TO FIRST CHARACTER 
;0F LINE POINTED BY FLINE 



DISPLAY SET FOR DISPLAY LOCK HOME - SET CURSOR 



19FF 


H 


19FF 


CD8A0C 


1A02 


CD7817 


1A05 


EE08 


1A07 


CA281A 

r 


1A0A 


3A6BFF 


1A0D 


32C0FF 


1A10 


32C7FF 


1A13 


C9 



HP050 EQU $ 

CALL RLUP3 
CALL CKFMT 
XRI FRMAT 
JZ HP110 



LDA MKROW 

STA CRROW 

STA LTROW 
RET 



;SET "LSTLIN" AND "CURADR" 
;FORAMT MODE? 

; (REVERSE RESULT OF TEST) 
;YES - LOCATE FIRST FIELD 

STARTING IN LOCKED REGION 

(A = 0) 
;N0 - SET CURSOR TO FIRST 

; UNLOCKED ROW 

; RETURN 



1A14 




HP060 


EQU 


$ 


lAt4 


AF 




XRA 


A 


1A15 


32C0FF 




STA 


CRROW 


1A18 


32C7FF 




STA 


LTROW 


1A1B 


2AA6FF 




LHLD 


STKYS 


1A1E 


23 




INX 


M 


1A1F 


CD8B0C 




CALL 


RLUPC 


1A22 


C33B1A 




JMP 


FDSR1 






; DISPLAY 


*IOT LOCK 


1A25 




HP100 


EQU 


S 


1A25 


3A6BFF 




LDA 


MKROW 


1A28 




HP110 


EQU 


$ 


1A28 


32C0FF 




STA 


CRROW 


1A2B 


AF 




XRA 


A 


1A2C 


32C7FF 




STA 


LTROW 


1A2F 


57 




MOV 


D„A 


1A30 


219FFF 




LXI 


H, FLINE 


1A33 


7E 




MOV 


A,M 


1A34 


C0A20C 




CALL 


RLUP1 


1A37 


C07317 




CALL 


CKFMS 


1A3A 


C8 




RZ 





DEFINE SOFT KEYS HOME UP 

;SET CURSOR ROW TO ZERO 



;SET -CURADR" AND "LSTLIN* 
;T0 FIRST SOFT KEY LINE 



; LOCATE FIRST FIELD 
- SET TOPLIN TO FLINE 

;SET CURSOR TO 1ST UNLK RW 

;SET NEW CURRENT ROW 

;SET LAST ROW DONE TO ZERO 
;SET D=0 TO FLAG TLINO UPDAT 

; S E T TOP LINE POINTER TO 

; FIRST DISPLAY LINE 
; FORMAT/SOFT KEY DEFINE MODE 
;N0 - RETURN 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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1A3B 
1A3B 
1A3E 
1A40 
1A42 
1A43 
1A46 
1A46 
1A47 
1A4A 
1A4D 
1A50 
1A51 
1A54 



1A60 
1A62 
1A63 



1A64 
1A64 
1A67 



210AFF 

3600 

2EC1 

4E 

C3641A 

AF 

32DAFF 

CDOD07 

FA6707 

4F 

CDDAQF 

CA641A 



1A57 




1A57 


21C0C0 


1A5A 


CD461B 


1A5D 


CA6A1A 



3E50 

91 

4F 



CD3B1B 
C2A81A 



; YES - FALL INTO "TLBSR1" TO 

; FIND FIRST UNPROTECTED 

; FIELD 

; ******************************************** 

; FLDSR - LOCATE THE NEXT UNPROTECTED FIELD * 

********************************************* 



ENTRY: DON'T CARE 

EXIT : NZ - FIELD FOUND 

D,E = ADDRESS OF "EN DPR" 

CURADR # CURCOL,CURR0W,LSTLIN,LSTC0L 
LSTROW UPDATE TO CORRESPOND TO 
FIELD FOUND 
Z - FIELD NOT FOUND 

ALL REGISTERS DESTROYED 



FDSR1 



FLDSR 



EQU 

LXI 

MVI 

MVI 

MOV 

JMP 

EQU 

XRA 

STA 

CALL 

JM 

MOV 

CALL 

JZ 



$ ;LOOK FOR NEXT UNPROTECT 

H # NWROW /INITIALIZE ROW COUNT 
M,Q ;T0 ZERO 

L,CRCOL-BASE ;6ET CURRENT 



COLUMN 



C/.M 
FR100 
$ 
A 

NWROW 
RADRB 
ZETRN 
C # A 
CPROT 
FR100 



; POSIT ION 



;ZERO NUMBER OF ROWS ROLLED 

;DOES CURSOR ROW EXIST? 
;N0 - RETURN ZERO 
;VES - SAVE LAST COLUMN FOUN 
;CURSOR IN PROTECTED FIELD? 
;YES - LOOK FOR NEXT UNPROTC 



******************************************* 



CURSOR 
SEARCH 



IS IN UNPROTECTED 
FOR START OF NEXT 



FIELD * 

PROTECTED FIELD * 

; ******************************************* 

FR080 EQU $ 

LXI H,STPR*256+STPR 

CALL FDCU1 ;ANY MORE FIELDS IN LINE? 

JZ FR120 ;N0 - 60 TO NEXT LINE 
; ********************************************* 
; ADVANCE CURSOR TO START OF PROTECTED FIELD * 

;********************************************* 

MVI A,MXC0L+1 ; COMPUTE NEW COLUMN 
SUB C 



MOV C-A 



SAVE COLUMN IN C 



;************************************ 

; CURSOR IS IN PROTECTED FIELD * 
; SEARCH FOR NEXT UNPROTECTED FIELD * 



IN THIS LINE 



J************************************ 



FR100 



EQU $ 

CALL FDCHU 

JNZ FR200 



;ANY MORE FIELDS IN LINE? 
;YES - SET CURSOR AND DISPLA 



1A6A 



* ************************* 
; NO MORE FIELDS IN LINE * 
; MOVE TO NEXT LINE * 

; ************************* 

FR120 EQU $ 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F IL E 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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ERRORS 



PAGE 120 



1A6A 
1A6C 
1A6F 
1A70 
1A73 
1A74 
1A75 
1A76 
1A78 
1A7B 
1A7C 
1A7F 
1A80 
1A83 
1A84 
1A85 
1A88 
1A8B 
1A8C 
1A8E 
1A9Q 



FEC4 

CAA21A 

4C 

CD6517 

7E 

2B 

6E 

FECE 

CAA21A 

67 

2296FF 

EB 

21DAFF 

34 

AF 

32C6FF 

329DFF 

79 

OE00 

FECO 

C2641A 



CPI 

41 

MOV 

CALt 

MOV 

OCX 

MOV 

CPI 

JZ 

MOV 

SHLD 

XCHG 

LXI 

INR 

XRA 

STA 

STA 

MOV 

MVI 

CPI 

JNZ 



SP FL6 

FR140 

C„H 

CA1N0 

A,M 

H 

L # M 

EOP 

FR140 

H,A 

LKSAV 

H,NWROW 

M 
A 

LTD CD 

TEMP 
A,C 
C,0 

STPR 

FRtOO 



>NON-DI SPLAYING TERMINATOR? 

;¥ES - RETURN FAIL 

;N0 .— SAVE TERMINATOR CHAR 

;6ET NEXT BLOCK LINK 

;6ET NEXT LINE LINK'S'' MSB 

;PUT LSB INTO I. -REGISTER 
;END OF DISPLAY FOUND? 
;YES - EXIT FIELD NOT FOUND 
;N0 - SAVE ADDRESS OF NEW 
;LINE 

; INCREMENT ROW NUMBER 



;CLEAR LAST DISPLAY CODE 



CHAR 



1A93 


CD061B 


CAL 


1A96 


3A9DFF 


LDA 


1A99 


32C6FF 


STA 


1A9C 


CA571A 


JZ 


1A9F 


C3641A 


JMP 



;6ET LAST TERMINATOR 
;SET COLUMN TO ZERO 

; LOOKING FOR START PROTECT? 
;N0 - CONTINUE UNPROTECT FIN 
; YES - SEE IF CONTINUE UNPROT 

; **************************************** 

; SEARCH FOR PROTECTED FIELD * 

; CHECK FOR CONTINUED UNPROTECTED FIELD * 

;**************************************•* 

FDSR2 ; FIRST CHAR AN "EN DPR" 

TEMP ;<SET NEW LSTDCD VALUE) 

LTDCD 

FR080 ;YES - LOOK FOR START PROTEC 

FR100 ;N0 - LOOK FOR NEXT UNPROTEC 

;******************************** 







; SET 


LSTCOL PAST END 


OF LINE * 






; TO CAUSE LINE TO BE 


RE SCANNED * 






;******************************** 


1AA2 




FDSRX 


EQU $ 




1AA2 




FR140 


EQU $ 


;(Z TRUE) 


1AA2 


21C8FF 




LXI H,LTCOL 




1AA5 


3650 




MVI M,MXC0L+1 




1AA7 


C9 




RET 


; RETURN 






• ************************** 






; UNPROTECTED FIELD FOUND * 






; SET 


NEW CURSOR POSITION * 






I ************* ************* 


1AA8 




FR200 


EQU $ 




1AA8 


3E50 




MVI A,MXC0L+1 


; COMPUTE NEW COLUMN 


1AAA 


91 




SUB C 




1AAB 


CD7A1E 




CALL CRET1 


;SET CURRENT CURSOR LOCATION 


1AAE 


32C8FF 




STA LTCOL 


;AND LAST CURSOR VALUE 


1 AB1 


EB 




XCHG 


; STORE NEW CURRENT ADDRESS 


1AB2 


22C3FF 




SHLD CRADR 




1 AB5 


22D5FF 


t 


SHLD LADDR 


;SAVE FIELD ADDRESS IN 
CASE ROLL UP NEEDED 


1AB8 


EB 




XCH6 


;RESTCRE D„E AND H,L 






• ************************* 






; COMPUTE NEW CURSOR 


ROW * 






; ************************* 


1AB9 


3ADAFF 




LDA NW ROW 


;6ET NEW ABSOLUTE ROW NUMBER 


tABC 


B7 




ORA A ; 


HAS ROW CHANGED? 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F ILE 
FILE 
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1AB0 


CAFD1A 




J2 


FR360 


1 ACQ 


21C0FF 




LXI 


H„ CRROW 


1AC3 


86 




ADD 


M 


1AC4 




FR240 


EQU 


$ 


1AC4 


0E18 




MVI 


C,MXR0W+1 


1AC6 


B9 




CMP 


C 


1AC7 


DAE61A 




JC 


FR340 



1AD? 
1AD7 
1ADA 
1ADD 
1ADE 
1AE1 
1AE2 
1AE3 



1AE6 
1AE6 
1AE9 
1AEC 
1AEF 
1AF2 
1AF3 
1AF6 
1AF9 
1AFC 
1AFD 
1AF0 
1AFF 



ERRORS = PAGE 121 



;N0 - RETURN 
;YES - CALCULATE NEW 
;ROW NUMBER 

:IS NEW ROW ON CURRENT PAGE? 



;YES 

*************************************** 

NEW CURSOR ROW IS ON NEW PAGE * 

ROLL DISPLAY UP TO GET ROW ON SCREEN * 

*************************************** 

DECREMENT ROLL COUNT BY ONE 

;PAGE 

; ADJUST FOR LOCKED DISPLAY 

;SAVE RESULT FOR STORAGE 

;COMPUTE NUMBER OF LINES TO 

;ROLL FOR ONE PAGE 
;SAVE THE VALUE FOR STORAGE 
;PUT VALUES INTO H,L 
;STORE ROLL PARAMETERS 

ROLL UP ONE PAGE OF LINES 



1ACA 


91 


SUB 


C 


1ACB 


216BFF 


LXI 


H,MKR 


1ACE 


86 


ADD 


M 


1ACF 


57 


MOV 


D,A 


1ADQ 


79 


MOV 


A,C 


1AD1 


96 


SUB 


M 


1AD2 


5F 


MOV 


E,A 


1AD3 


EB 


XCHG 




1AD4 


2282FF 


SHLD 


RLLCT 



FR300 



CD5B0C 

2182FF 

35 

C2D71A 

23 

7E 

C3C41A 



EQU 


$ 


CALL 


RLLUP 


LXI 


H, RLLCT 


DCR 


n 


JNZ 


FR300 


INX 


H 


MOV 


A,M 


JMP 


FR240 



; ************* 

; UPDATE ROW * 
• ************* 



FR340 



32C0FF 

2AC0FF 

22C7FF 

2A96FF 

23 

22C9FF 

2AD5FF 

22C3FF 

EB 

FE02 
C31D0F 



FR360 



EQU 

STA 

LHLD 

SHLD 

LHLD 

INX 

SHLD 

LHLD 

SHLD 

XCHG 

EQU 

CPI 

JMP 



$. 

CRROW 

CRROW 

LTROW 

LKSAV 

H 

LTLIN 

LA DDR 

CRADR 

$ 
D 
DSLN1 



;ROLLUP ONE LINE 

;PAGE ROLLED UP? 
;N0 - DO ANOTHER LINE 
;YES - GET NUMBER OF ROWS 
;T0 UNPROTECTED FIELD AND 
;CHECK TO SEE IF ON SCREEN 



;SET NEW ROW NUMBER 

;SET LAST ROW AND COLUMN DON 

;CURRENT ROW AND COLUMN 
;SET "LSTLIN" TO CURRENT ROW 

^ADDRESS 

;SET "CURADR" TO ADDRESS OF 

; FIRST CHAR IN NEW FIELD 
;PUT CURRENT ADDRESS INTO D, 

;SET Z-FALSE (D >= 320) 
;G0 SET DISPLAY CURSOR ROW 



t 

r 

r 

r 



************************ 

FLDSR2 - DETERMINE PROTECT SENSE OF NEXT 
CHARACTER 

ENTRY: D # E = NEXT CHARACTER ADDRESS 

EXIT : 2 - CONTINUATION OF FORMAT FIELD 
• NZ - NOT A CONTINUATION 
D,£ = ADDRESS OF CHARACTER 



FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

F I LE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 
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20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 
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20 
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t 

m 

e 
i 

F2000 

FDSRB 
F2005 

FDSR2 



ERRORS = PAGE 122 



1B02 
1B02 
1B05 
1B05 
1B05 
1B06 
1B06 
1B07 
1B0A 
1B0D 
1B0E 
1B11 
1B12 
1B15 
1B17 
1B1A 
1B1B 
1B1E 



1B1F 
1B1F 
1B22 
1B22 
1824 
1B27 
1B2A 
1B2B 
1B20 
1B30 
1B32 
1B35 
1B36 
1B37 
1B3A 



H = BASEH 

TEMP = NEW ENHANCEMENT 

A # L DESTROYED 



CODE IF ANY 



329DFF 



1B 

13 

CDBBOB 

C2061B 

87 

02590B 

1F 

F2021B 

FEC4 

F2051B 

21C5FF 

BE 

C9 



21C0C0 

3E01 

326DFF 

3AC2FF 

F5 

OEOO 

CD4A1B 

3EO0 

326DFF 

C1 

78 

32C2FF 

C9 



EQU 

STA 

EQU 

EQU 

DCX 

EQU 

INX 

CAL 

JNZ 

ADD 

JNC 

RAR 

JP 

CPI 

JP 

LXI 

CMP 

RET 



$ 
TEMP 

$ 
$ 
D 



;STORE NEW DISPLAY CONTROL 



SET ADDRESS TO NEXT CHAR 



$ 

D ;SET ADDRESS TO PREV CHAR 

L NTCHR ;SET NEXT CHARACTER 

FDSR2 ;SK1P OVER LINKS 

A ;ASCII OR DISPLAY CONTROL? 

NEXIT ;ASCII - RETURN NOT CONTINUE 

;< RESTORE DATA BYTE) 

F2000 ^DISPLAY CONTROL - IGNORE IT 

SPFLG ;TERMINATOR OR TYPE DEFINE? 

F2005 ;YES - SKIP TO NEXT CHARACTE 

H,LTFMT ;COMPARE AGAINST LAST FORMAT 

K ; CONTROL AND RETURN 



i 
t 
r 
r 

i 

i 
r 
t 
t 
t 
r 
r 



************************ 

FNDCH - SEE IF NEXT CHAR IS FORMAT CONTROL BYTE 

ENTRY: TERMINAL IS IN FORMAT MODE 
D # E = START ADDRESS 
H^L = CHARACTERS TO LOOK FOR 

EXIT : Z - CHARACTER NOT FOUND 
NZ - CHARACTER FOUND 
D,E = ADDRESS OF ENDING CHARACTER 
A # B # C # L,TEMP DESTROYED 

FNDCHO - SEE IF NEXT CHARACTER IS PROTECTED 



FOCHO 



FNDCH 



* 
t 

r 
r 
r 



EQU $ 

LXI H,STPR*256+STPR ;SET COMPARE CHARS 

EQU $ 

MVI A # INTRM ;SET TO IGNORE NON-DISPLAYI N 

STA TMFCT ; TERMINATOR 

LDA POFLD ;SAVE PROTECTED FIELD 

PUSH PSW ; STATUS 

MVI C,Q ;SET FOR NEXT CHARACTER ONLY 

CALL FR40G ; LOCATE THE NEXT CHARACTER 

MVI A,DLTRH ; RESTORE FLAG TO DELETE NQN- 

STA TMFCT ; DISPLAYING TERMINATOR 

POP B ; RE SET PROTECT STATUS TO BE 

MOV A r B CONSISTENT WITH CHARACTER 

STA POFLD ;POINTED TO BY "GURADR" 

RET ;RETURN 



************************ 

FNDCHU - LOCATE NEXT UNPROTECTED FIELD 
CONTROL BYTE IN CURRENT LINE 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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ERRORS ~ PAGE 123 



1B3B 
1B3B 
1B3E 
1B41 
1B44 



1B51 
1B51 
1B52 
1855 
1B56 
1B57 
1B58 
1B58 
1B59 



r 



r 

t 
r 

r 
f 
t 
I 



FOCHU 



ENTRY: 



EXIT ; 



C01B12 
21C1C1 
CA461B 
2EC2 



EQU 
CALL 
LXI 
JZ 

MVI 



TERMINAL IS IN FORMAT MODE 
B = DON'T CARE 
C = CURRENT COLUMN NUM8ER 
D^E = START ADDRESS 

Z - CHARACTER NOT FOUND 

NZ - CHARACTER FOUND 

C = NUMBER OF CHARS TO END OF LINE 

D # E = ADDRESS OF ENDING CHARACTER 

PROFLD SET AS DEFINED 

A,B,L DESTROYED 



$ 

DXB2D ;DATA COWM OR I/O BUFF INPUT 
H,ENDPR*256+ENDPR ;CSET "ENDPR" ONLY) 
FDCU1 ;N0 - SKIP XMIT ONLY FIELDS 



L r XONLY 



YES - LOOK FOR "XrONLY" ALS 



LOCATE THE FORMAT CONTROL CHARACTER 



1B46 




1B46 


3E4F 


1B48 


91 


1B49 


4F 


1B4A 




1B4A 


CD511B 


1B4D 


C8 


1B4E 


AF 


1B4F 


B1 


IB50 


C9 



FDCU1 



FR400 



EQU 

MVI 

SUB 

MOV 

EQU 

CALL 

RZ 

XRA 

OR A 

RET 



$ 
A,MXCOL 
C 

C,A 
$ 

FDCHR 

A 
C 



;COMPUTE NO. 
;T0 SEARCH 



OF CHARS 



;LOOK FOR SPECIFIED CHARS 
;RETURN IF EOL ENCOUNTERED 
; OTHERWISE, SET FLAG TO 
;SHOW IF CHARACTER FOUND 



;*******************************:******* 

; FNDCHR - LOCATE SPECIFIED CHARACTER * 
- ************************************** 



r 

* 

« 

r 



i 
# 
t 
i 

i 
i 
i 

i 
i 

* 



ENTRY: C = NUMBER OF COLUMNS TO SEARCH 
D # E = STARTING ADDRESS 
H # L = CHARACTERS TO LOOK FOR 
(VALID FOR FORMAT MODE ONLY) 

EXIT : Z - CHARACTER NOT FOUND 
NZ - CHARACTER FOUND 
C = NUMBER OF CHARACTERS LEFT 

(= 0, IF CHARACTER FOUND) 
D,E - ADDRESS OF TERMINATING CHARACTER 
"EOLMV" SET TO ZERO 
"PROFLD" SET IF IN FORMAT MODE 
"LSTFMT" UPDATED IF A FORMAT CONTROL 
CHARACTER IS ENCOUNTERED 



FDCHR 



AF 

3290FF 
13 
OC 

oc 

0D 

CA590B 



FR005 



EQU $ 

XRA A 

STA EOLMV 

INX D 

INR C 

INR C 

EQU $ 

DCR C 

JZ NEXIT 



;SET TO PREV CHAR ADDRESS 
; ADJUST CHARACTER COUNT 



; COLUMN FOUND? 

;YES - RETURN CHARACTER FOUN 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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20 
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20 
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r 
i 


SEARCH DISPLAY LIS 


1B5C 




FR010 


EQU 


$ 


1B5C 


CDBBOB 






CALL 


NTCHR 


1B5F 


C2D81B 






JNZ 


FR260 


1B62 


87 






ADD 


A 


1B63 


D2581B 






JNC 


FR005 






-******************** 






r 


N0N-*ASCII 


CHARACTER 






;' 


it******************* 


1B66 


1F 






RAR 




1B67 


FA70tB 






JM 


FR105 


1B6A 


32C6FF 






STA 


LTDCD 


1B6D 


C35CtB 


T 




J MP 


FR010 






* 




FORMAT CONTROL CHA 


1B70 




FR105 


EQU 


$ 


1B70 


FECC 






CPI 


EOL 


1B72 


C8 






RZ 




1B73 


FEGE 






CPI 


EOP 


1B75 


C8 






RZ 




1B76 


FEC4 






CPI 


SPFL6 


1B78 


CAC71B 






JZ 


FR205 


187B 


FEC5 






CPI 


ALPHA 


1B7B 


F2A81B 






JP 


FR150 


1B80 


FEC3 






CPI 


XONLY+1 


1B82 


F25C1B 






JP 


FR010 


1B85 


E5 






PUSH 


H 


1B86 


216707 






LXI 


H r ZETRN 


1B89 


2286FF 






SHLD 


CKRTN 


1B8C 


E1 






POP 


H 


1B80 


32C5FF 






STA 


LTFwT 


1B90 


47 






MOV 


B,A 


1B91 


CD7317 






CALL 


CKFMS 


1B94 


CA5C1B 






JZ 


FR010 


1B97 


78 






MOV 


A, 8 


1B98 


DEC1 






SB I 


STPR+1 


1B9A 


32C2FF 






STA 


POFLD 


1B9D 


78 






MOV 


A,B 


1B9E 


BC 






CMP 


H 


1B9F 


CAA61B 






JZ 


FR110 


1BA2 


BD 






CMP 


L 


1BA3 


C25C1B 






JNZ 


FR01O 


1BA6 




FR110 


EQU 


$ 


1BA6 


B7 






ORA 


A 


1BA7 


£9 






RET 





!BA8 
1BA8 
1BA9 
1BAC 
1BAF 
1BB2 
1BB4 
1BB7 



;GET THE NE 
;EOL LINK - 
;IS IT ASCI 
;YES - DECR 
************ 

- DETERMINE 
************ 

; RESTORE C'H 
;NOT DISPLA 
; UP DATE CUR 
;CONTINUE S 



XT CHARACTER 

EXIT NOT FOUND 
1? 
EMENT COLUMN COON 

**************** 

CHAR FUNCTION * 
**************** 

ARACTER 

Y CTL - CHECK MOR 

RENT DISPLAY CODE 

EARCKING 



;END OF LINE? 
;YES - RETURN 
;END OF DISPLAY? 
;YES - RETURN 

;N0N-DISPLAYIN6 TERMINATOR? 
;YES - DETERMINE ITS FUNCTIO 
;TYPE DEFINITION? 
;YES - SET CHECK FUNCTION 
; FORMAT CONTROL? 
;N0 - CONTINUE SEARCHING 
;YES - RESET CHECK ROUTINE 
;ADDRESS 



RESTORE CHECK CHARACTERS 
SET CURRENT FORMAT CONTROL 
SAVE CONTROL CHARACTER 
FORMAT/SOFT KEY DEFINE MODE 
NO - CONTINUE SEARCHING 
RECALL CHARACTER 
COMPUTE "PROFLD" VALUE 
;(= -1 FOR PROTECTED) 
RECALL CHARACTER 
TERMINATOR FOUND? 
YES - EXIT 



;N0 - CONTINUE SEARCHING 

;SET Z FALSE 
;RETURN 

TYPE DEFINITION FOUND - SET CHECK ROUTINE 



FR150 



E5 

212370 

CAC01B 

212670 

D6C7 

FAC01B 

216707 



EQU $ 

PUSH H ;SAVE TERMINATOR CHARACTERS 

LXI H # ZLPCK ;SET H,L FOR ALPHA CHECK 

JZ FR160 ;SET ALPHA CHECK IF ALPHA 

LXI H,ZUNCK ;SET H # L FOR NUMERIC CHECK 

SUI NMBER+1 ;NUMERIC FIELD? 

JM FR160 ;YES - SET CHECK ROUTINE ADD 

LXI H,ZETRN ;N0 - SET H,L FOR ALPHANUM 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
2ii 
20 
20 

20 
20 

20 
20 

20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2D 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



1BBA 


CAC01B 




1BBD 


21360F 




1BC0 




F 


1BC0 


2286FF 




1BC3 


E1 




1BC4 


C35C1B 


t 

r 
i 



JZ 


FR16G 


LXI 


H,SKCHK 


EQU 


$ 


SHLD 


CKRTN 


POP 


H 


JMP 


FR01O 



FILE 20 
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FILE 20 

FILE 20 

FILE 20 

;SET ROUTINE ADDR IF = ZERO FILE 20 

;ELSE # SET FOR SOFT KEYS FILE 20 

FR160 EQU $ FILE 20 

;SET CHECK ROUTINE ADDRESS FILE 20 

;RECALL TERMINATOR CHARACTER FILE 20 

;CONTINOE SEARCHING FILE 20 

FILE 20 

********************************************** FILE 20 

NON-DISPLAYING TERMINATOR FOUND - DETERMINE * FILE 20 

; AND PERFORM ITS FUNCTION * FILE 20 

;********************************************** FILE 20 

FILE 20 
;GET THE FUNCTION FLAG FILE 20 

;WHAT FUNCTION? FILE 20 

;-1 - TERMINATE TRANSFER FILE 20 

;+1 - IGNORE IT FILE 20 

;0 - DELETE IT FILE 20 

;CONTINUE CHARACTER SEARCH FILE 20 

FILE 20 
FILE 20 
FILE 20 
FILE 20 
;PUT CHARACTER BACK IN A-RE6 FILE 20 

FILE 20 
;SET Z-FLAG TRUE FILE 20 

;RETURN CHARACTER NOT FOUND FILE 20 

; FILE 20 

;*********************************************** FILE 20 

; FNDLST - LOCATE LAST CHARACTER TYPE AHEAD OF * FILE 20 

; CURRENT CHARACTER * FILE 20 

;*********************************************** FILE 20 

FILE 20 

; ENTRY: A * NUMBER OF COLUMNS TO SEARCH FILE 20 

D,E = ADDRESS OF CHARACTER BEFORE FILE 20 

BEFORE FIRST CHARACTER TO LOOK AT FILE 20 



1BC? 




FR 


205 


EQU 


$ 


1BC7 


3A6DFF 






LDA 


TMFCT 


1BCA 


B7 






ORA 


A 


1BCB 


FAD71B 






JM 


FR250 


1BCE 


C25C1B 






JNZ 


FR010 


1BD1 


CDB518 






CALL 


CRDL2 


1 BD4 


C35C1B 






JMP 


FR010 








TERMINATE TRANSFER 


1BD7 




FR2 50 


EQU 


$ 


1BD7 


1A 






LDAX 


D 


1BD8 




FR260 


EQU 


$ 


1BD8 


BF 






CMP 


A 


1BD9 


C9 






RET 





* 



r "r 

t 



H,L = CHARACTERS TO BE FOUND FILE 20 

FILE 20 

; EXIT i P - CHARACTER FOUND FILE 20 

B = NUMBER OF CHARACTERS FROM CURRENT FILE 20 

CHARACTER FILE 20 

M - CHARACTER NOT FOUND FILE 20 

B DESTROYED FILE 20 

A,C,0,E DESTROYED FILE 20 

FILE 20 



# 



1BDA FDLSO EQU $ FILE 20 

1BDA 3C Itt'R A ;ADJUST SEARCH COUNT FILE 20 

1BDB 21CCCC LXI H # E0L*256*E0L ;SET TO LOOK FOR "EOL" FILE 20 

; FILE 20 

1BDE FDLST EQU $ FILE 20 

1BDE 4F MOV C,A ;PUT SEARCH COUNT IN C-REG FILE 20 

1BDF 06FF MVI B,377Q ;PRESET B FOR FAIL RETURN FILE 20 

1BE1 3D DCR A ;ANY COLUMNS TO SEARCH? FILE 20 

1BE2 F8 RM ;N0 - RETURN NONE FOUND FILE 20 

1BE3 FS010 EQU $ FILE 20 

1BE3 CDBBOB CALL NTCHR ;6ET THE NEXT CHARACTER FILE 20 

1BE6 BC CMP H ;DOES IT MATCH DESIRED CHARS FILE 2D 

18E7 CAEE1B JZ FS020 ;YES - SAVE LOCATION OF CHAR FILE 20 

1BEA BD CMP L FILE 20 

1BEB C2EF1B JNZ FS030 ;N0 - GO TO NEXT CHARACTER FILE 20 

1BEE FS020 EQU $ FILE 20 
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1BEE 


41 




MOV 


B,C 


1BEF 




FS030 


EQU 


$ 


1BEF 


B7 




ORA 


A 


1BF0 


FAFA1B 




JH 


FS050 


1BF3 


OD 




DCR 


C 


1BF4 




FS035 


EQU 


$ 


1BF4 


C2E31B 




JNZ 


FS010 


1BF7 




FS040 


EQU 


$ 


1BF7 


AF 




XRA 


A 


1BF8 


BO 




ORA 


B 


1BF9 


C9 




RET 








;**************** 






; NON- 


■ASCII 


CHARA 






;**************** 


1BFA 




FS050 


EQU 


$ 


1BFA 


FECC 




CPI 


EOL 


1BFC 


CAF71B 




JZ 


FS040 


1BFF 


FECE 




CPI 


EOP 


1C01 


C3F41B 




JMP 


FS035 



1C14 

1C16 
1C17 
1C18 
1C1B 
1C1C 
1C1D 



1C1E 
1C1E 
1C20 
1C23 
1C23 
1C24 



1C27 
1C27 
1C28 
1C2A 
1C2B 
1C2C 
1C2F 
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;SAVE LOCATION OF CHAR IN B 

;IS CURRENT CHAR ASCII? 
;N0 - CHECK FOR TERMINATION 
;SEARCH COMPLETE? 

;N0 - CHECK NEXT CHARACTER 

;CLEAR A-REGISTER 
;SET FLAGS FOR RETURN 
; RETURN 
****************************** 

CTER - CHECK FOR TERMINATION * 
****************************** 

;IS IT AN EOL? 
;YES - EXIT 
;IS IT AN EOP? 
;60 CHECK RESULT 







;************* 


1C04 




HTA8 


EQU $ 


1C04 


CD6F17 




CALL CK 


1C07 


C2501C 




JNZ KB 


1C0A 


2EC1 




MVI L, 


1C0C 


46 




MOV B„ 


1C0D 


04 




INR B 


1C0E 


3E4F 




MVI A # 


1C10 


90 




SUB B 


1C11 


FA0D1D 




«*M CR 



*********************************** 
TO NEXT TAB POSITION * 
********************** 



HTAB - SKIP 



FMO ;FORMAT/SOFT KEY DEFINE MODE 
200 ;YES - LOCATE NEXT FIELD 
CRCOL-BASE ;N0 - LOCATE NEXT TAB 



M 



MXCOL 



LF 



;SET 
; START 



F607 

4F 

78 

CD6214 

3D 

2F 

A6 



0608 
CA431C 

OF 
D23F1C 



;**** 

; CHE 

; **** 

HB100 



HB120 



; TAB 

; **** 
HB16Q 



ORI 7 

MOV C,A 
MOV A,B 
CALL FD 

DCR A 
CMA 
ANA M 

********* 

CK NEXT C 
********* 

EQU $ 
MVI 
JZ 
EQU 
RRC 
JNC 
********* 

IS SET - 

********* 



TBI 



POSITION 

FROM NEXT COLUMN 
; COMPUTE NUMBER OF COLUMNS 

;T0 END OF LINE 
;60 TO START OF NEXT LINE IF 
ALREADY AT END OF LINE 
;MOVE TO COL CORRESP. TO 

START OF BYTE 
;SAVE IN C 

;GET TABLE ENTRY FOR COLUMN 
;MASK OFF BITS FOR 
^PREVIOUS COLUMNS 



B,8 

HB1 

$ 

HB 



******************* 

OLUMN FOR SET TAB * 
******************* 

;6ET BIT COUNT 
40 ;N0 BITS SET IN BYTE 

;TAB BIT SET? 
130 ;N0 - TRY NEXT COLUMN 
**************** 

UPDATE CURCOl * 
**************** 



5F 

3E56 

91 

90 

2296FF 

2ABEFF 



EQU 

MOV 

MVI 

SUB 

SUB 

SHLD 

LHLD 



$ 

E,A 

A,MXCQL+7 

C 



B 



LK 
RT 



SAV 
MGN 



;SAVE A-REGISTER 

;COMPUTE COLUMN OF LOCATIO 
;0F TAB 

;SAVE CURRENT TABLE ADDRESS 
;6ET RIGHT AND LEFT MARGINS 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2U 
20 
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1C32 


BO 


1C33 


F20D1B 


1C36 


3C 


1C37 


BC 


tC38 


D20D11 


tC3B 


78 


1C3C 


2A96FF 



1C50 
1C50 
1C53 
tC54 



CMP 


L 


JP 


CRLF 


INR 


A 


CMP 


H 


JNC 


CRP04 


MOV 


A,E 


LHLB 


LKSAV 



I************* 

; TAB NOT FOUN 
• ************* 



1C3F 




HB130 


EGU $ 


1C3F 


05 




OCR B 


1C40 


C2231C 




JNZ HB 






;************* 






; BYTE 


EXHAUST 






; MOVE 


TO NEXT 






; ************* 


1C43 




HB140 


EQU $ 


1C43 


79 




MOV A,C 


1C44 


D608 




SUI 8 


1C46 


FAOD10 




JM CR 


1C49 


4F 




MOV C,A 


1C4A 


23 




INX H 


1C4B 


7E 




MOV A,M 


1C4C 


B7 




ORA A 


1C4D 


C31E1C 




JMP HB1 



CD461A 

CO 

C3AE19 
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;TAB BEYOND RIGHT MARGIN? 
;YES - BO CR, LF 
;N0 - ADJUST TO PROPER VALUE 
;TAB BEYOND LEFT MARGIN? 
;YES - LOCATE TAB LOCATION 
;N0 - RESTORE A-RE6ISTER 
;RECALL TAB TABLE ADDRESS 
LOOK FOR ANOTNER TAB 



*********************** 

D - CHECK NEXT COLUMN * 
*********************** 

;N0 - TRY NEXT COLUMN 
;ALL BITS EXAMINED? 

120 ;N0 - LOOK TO NEXT BIT 

*************** 

ED * 

TABTBL ENTRY * 

*************** 

;GET COLUMN COUNT 
^DECREMENT 
LF ;D0 CR,LF IF REACHED END 

;6ET NEXT BYTE FROM TABLE 

;SET FLAGS 
00 



; ****************** 
; FORMAT MODE TAB * 

• ****************** 

HB200 EOU S 

CALL FLDSR ;SEARCH FOR NEXT FIELD 

RNZ ^RETURN IF FOUND 

JMP CRPH1 ;HOME TO FIRST UNPROT. FIELD 



************************ 
; ICHON,ICHOFF - INSERT CHARACTER ON/OFF 



1C57 




1C57 


0600 


1C59 




1C59 


3E02 


1C5B 


C30E70 


1C5E 




1C5E 


3EFD 


1C60 


CD5113 


1C63 


3E02 


1C65 


C31170 



;SET FOR NO BLINK 



ICHON ECU $ 

MVI B # 

IH010 EftU $ 

MVI A # 1SCHR ;TURN ON INSERT CHARACTER 

JMP ZTMD1 ;LED AND EXIT 



IHOFF 



EQU 
MVI 
CALL 
MVI 

JMP 



1C68 




1C68 


3E02 


1C6A 


CD7513 


1C6D 


06FF 



A r 377Q-ISWRP 

CCMFL ;CLEAR WRAP AROUND FLAG 
A # ISCHR ;TURN OFF INSERT CHARACTER 
ZLMD1 

j**** ************************ ********* 
; IWRPON - INSERT WITH WRAPAROUND ON * 
************************************** 
IRPON E«U $ 

MVI A # ISWRP 

CALL SCMFL ;SET WRAP AROUND FLAG 

MVI B„377G ;SET TO BLINK LED 



FILE 


20 


FILE 


20 


FILE 


2C 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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1C6F C3591C 



1C99 
1C99 
1C9A 
1C9D 



1C9E 
1C9E 
1CA1 



AF 

3267FF 

C9 



JMP IH010 
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;SET INSERT CHARACTER LED ON 



1C72 




BKSPC 


EQU 


1C72 


2EC1 




WVI 


IC74 


35 




DCR 


1C75 


FO 




RP 


1C76 


34 




INR 


1C77 


C9 


r 


RET 






* 

• ********* 



; ******************************************** 
; BCKSPC - BACKSPACE ONE CHARACTER POSITION * 

; ******************************************** 



L, CRCOL-BASE 



M 



;DECREMENT CURRENT COLUMN 
;RETURN IF NOT AT COLUMN ZER 
;ELSE, RESTORE TO ZERO AND 
; RETURN 



1C78 
1C78 


CD781C 


C 


1C7B 
1C7B 
tc7E 
1C81 


C0CA1C 
CD7317 
C8 


* 

c 

r 



1C82 
1C85 
1C86 


3AC1FF 

B7 

C29E1C 

* 


* 
i 

* 
r 


1C89 
1C8C 
1C8D 
1C90 
1C93 
1C96 


2AC9FF 

EB 

3A8AFF 

32C5FF 

CD051B 

C2AF1C 


i 
I 



*********************************** 

CURADV - CURSOR ADVANCE ROUTINE * 
ADVANCES CURSOR TO NEXT POSITION * 

ON DISPLAY * 

*********************************** 



RAD2 



RADV 



EQU 
CALL 



$ 
CRADV 



EQU $ 

CALL CURAD 
CALL CKFMS 
RZ 



;ADVANCE CURSOR 
;D0 FIRST CURSOR 
THEN FALL IN T 

;ADVANCE CURSOR 
; FORMAT/SOFT KEY 
;N0 - RETURN 
************************************* 

FORMAT MODE 

CHECK FOR ADVANCE INTO PROTECTED FIE 
************************************* 

LDA CRCOL ;6ET NEW CURRENT 
ORA A ;DID CURSOR WRAP 

JNZ CA040 ;N0 - CHECK FOR 
********************************** 

CURSOR WRAPPED AROUND * 

SEE IF NEW LINE IS CONTINUATION * 

OF UNPROTECTED FIELD * 

********************************** 

LHLD LTLIN 

;6ET CURRENT LIN 
; RESET "LSTFMT" 

; FORMAT CONTRO 
CONTINUATION FI 
;N0 - TAB TO NEX 



* ******************** 

; RESET CURADV FLAG * 
^ ******************** 



TWICE 

ADVANCE 
DO NEXT 



DEFINE MODE 

**** 

* 

LD * 
**** 

COLUMN 
AROUND? 
PROTECTED FL 



XCH6 




LDA 


FTCTL 


STA 


LTFMT 


CALL 


FDSRB 


JNZ 


CA060 



E ADDR IN D # 

TO LAST 

L IN LINE 

ELD? 

T FIELD 



CADV1 



EOU 
XRA 
STA 
RET 



A 
CAFL6 



2AC3FF 

EB 



***************************** 

CURSOR DID NOT WRAP AROUND * 

SEE IF CURSOR ENTERED * 

PROTECTED FIELD * 

***************************** 

CA040 E6U $ 

LHLD CRADR ;GET THE CURRENT CHAR ADDR 
XCHG ;PUT IT INTO H,L 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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DCX 

LHLD 

PUSH 

CALL 

POP 

SHLD 

RZ 

CA060 EQU $ 
CALL 
CALL 
LXI 
JNZ 

; CALL 
MOV 

CA070 EQU 
CALL 
CZ 
RNZ 
CALL 
RZ 
JMP 



1CA2 


IB 


1CA3 


2A86FF 


1CA6 


E5 


tCA7 


CD1F1B 


1CAA 


E1 


1CA8 


2286FF 


1CAE 


C8 


1CAF 




1CAF 


CD991C 


1CB2 


CD1B12 


1CB5 


21C2C1 


1CB8 


C2BC1C 


1CBB 


6C 


1CBC 




1CBC 


CD221B 


1CBF 


CC461A 


1CC2 


CO 


1CC3 


CD1B12 


1CC6 


C8 


1CC7 


C3AE19 



tCCA 
1CCA 

tcco 

1CBQ 
1C&0 
1CD1 
UD4 
1C06 
1CD9 
1CDA 
1C0B 
1CDE 
1CDF 
1CE2 
1CE4 
tCE5 
1CE7 
1CE9 



1CEA 
1CEA 
ICED 
1CEE 
1CF1 
1CF4 
1CF7 
1CFA 
1CF0 
1D00 
1D02 
1D03 
1D06 
1D08 
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D ;SET POINTER TO NEXT CHAR 

GKRTN ;SAVE THE CURRENT CHECK 
H ;ROUTINE ADDRESS 

FDCHO ;NEXT CHARACTER PROTECTED? 
H ; (RESTORE CHECK ROUTINE 

CKRTN ;ROUTINE ADDRESS) 

;N0 - RETURN 

CADV1 PRESET CURADV FLAG 

DXB2D ;DATA COKM OR I/O BUFF CHAR? 

H,ENDPR*256+X0NLY ; (SET DEFAULT) 

CA07O ;YES - BON*T SOUND BELL 

ZBELL ;N0 - SOUND BELL 

L # H ;L0OK FOR "ENDPR" ONLY 

$ 

FNDCH ;NEXT CHARACTER UNPROTECTED 

FLDSR ;0R ANOTHER FIELD EXIST? 

;YES - RETURN 
DXB2D ;DATA FROM DATA COMM OR CTU? 

;N0 # FROM KEYBOARD - RETURN 
CRPH1 ;YES - HOME THE CURSOR 



; ************************* 

; CRADV - ADVANCE CURSOR * 
-A************************ 



3ABEFF 
21C1FF 

BE 

CAEA1C 

3E4F 

FAD01C 

34 

BE 

C4DA0F 

C8 

3AF4FF 

E602 

CO 

2E67 

3601 

C9 



CUR AD 



CU010 



EQU 

LDA 

LXI 

EQU 

CMP 

JZ 

MVI 

JM 

INR 

CMP 

CNZ 

RZ 

LDA 

AN I 

RNZ 

MVI 

MVI 



RTRGN 

H r CRCOL 

$ 

M 

CA100 

A,MXCOL 

CU010 

M 

M 

CPROT 



;GET RIGHT MARGIN SETTING 



;CURSOR AT RIGHT MARGIN? 
;YES - CHECK FOR WRAP AROUND 

;(SET FOR LAST COL CHECK) 
;AFTER MARGIN - CHECK EOL 
;ADVANCE CURSOR 
;MOVED INTO RIGHT MARGIN OR 

;INTO PROTECTED FIELD? 
;YES - DON»T SET CURADV FLAG 
MFLG1 ;GET TERMINAL MODE FLAGS 
ISCHR ;IN CHARACTER INSERT MODE? 

;YES - DON'T SET FLAG 
L, CAFLG-BASE ;N0 - SET CURADV FLAG 
M,1 



CDOC50 

DO 

3AC5FF 

328AFF 

CD7317 

CCBCOF 

C20D1D 

3AFBFF 

E604 

CO 

3A6EFF 

E680 

3EBF 



RET 
; *********************************** 
; CURSOR IS IN LAST COLUMN OF LINE * 
************************************ 

CA100 EQU $ 

CALL BY 100 ;EXECU TE G A NZWQRTREGEL 

"STT 



RNC ; CARRY SET ? NO = RETURN 

LDA LTFMT ;SAVE LAST FORMAT CONTROL 

STA FTCTL ; IN CURRENT LINE 

CALL CKFKS ;F0RMAT/SOFT KEY DEFINE OR 

CZ CDSPF ;DISPLAY FUNCTIONS ENABLED 

JNZ CRLF ;YE S - DON 'T CLEAR WRAP FLAG 

LDA KJMPR /UTT- GET KEYBOARD JUMPERS 1 

ANI LNWRP ;WRAP AROUND ENABLED? 

RNZ ;N0 - RETURN 

LDA DFLGS ;YES - GET DATA TRANSFER FL& 

ANI XF2DS ;I/0 BUFFER TO DISPLAY? 

MVI A # 377Q-WPFLG ;(SET CLEAR MASK) 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
2C 
20 
20 
20 
20 
20 
20 



?jli DtnUcow^ ^TC 
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100A C41E05 



1000 
1D0D 

1010 



1013 
1013 
1015 
1018 
1018 
101A 
101A 
1D1C 
1010 
1D1E 
1D21 
1023 
1024 
1025 
1025 
1027 
1029 
1D2A 
102B 
1020 
1030 
1032 
1033 
1033 
1035 
1036 
1039 
103A 
103B 
103C 
103F 
1042 
1043 
1044 
1D45 
1046 
1047 
104A 
1 040 
104E 
1050 



1D51 
1051 
1053 
1053 
1055 
1057 



C06A1E 
C3C70A 



3E01 
C31A10 

3EFF 

2EC1 

86 

77 

FA511D 

0650 

CO 

77 

3E01 

2EC0 

86 

77 

0618 

CA3310 

F6FF 

C9 

3E17 

77 

2AC9FF 

7E 

B7 

C8 

C05B0C 

2AC9FF 

7E 

B7 

C8 

5F 

1C 

C0880C 

21C7FF 

34 

F6FF 

C9 



364 F 

3E17 
2EC0 
86 



CNZ CRMF2 ;YES - CLEAR LINE WRAP 
-****************************************** 

; CURSOR SHOULD BE WRAPPED INTO NEXT LINE * 
; GENERATE CR,LF * 

;********** ^*** *********** *********** ******* 

CRLF EQU $ 

CALL CRRET ^CARRIAGE RETURN 
JMP LFEED ;LINE FEED 



FLAG 



CUR PR 



CURPL 



CRPL1 



CURPO 



CUPD1 



EQU 

MVI 

JMP 

EQU 

MVI 

EQU 

MVI 

ADD 

MOV 

JM 

SUI 

RNZ 

MOV 

EQU 

MVI 

MVI 

ADD 

MOV 

SUI 

JZ 

ORI 

RET 

EQU 

MVI 

MOV 

LHLD 

MOV 

ORA 

RZ 

CALL 

LHLO 

MOV 

ORA 

RZ 

MOV 

INR 

CALL 

LXI 

INR 

ORI 

RET 



CRPL2 EQU 
MVI 

CORPO EQU 
MVI 

MVI 



$ 

A,1 

GRPL1 

$ 

A^-1 

$ 

L,CRCOL 

M 

M,A 

CRPL2 

MXCOL + 1 

M,A 
$ 

A,1 

L # CRROW 

M 

M # A 

MXROW+1 

CUPD1 

377Q 



A, MX ROW 
M> A 
LTLIN 

A # M 
A 

RLLUP 
LTLIN 

A,M 
A 

E,A 

E 

RLUP2 

H # LTROW 

M 

377Q 



$ 

M, MX COL 

$ 

A # MXROW 

L,CRROW 



;CURSOR POINTER RIGHT 



;CURSOR POINTER LEFT 



;WRAP TO LEFT 

;yRAP TO RIGHT 

;N0 RET 

;YES COLUMN TO ZERO 

;CURSOR DOWN WITH ROLL UP 



;MXROW 



;NEXT ROW 

;N0 
;YES 



; CURSOR AT LAST COLUMN 
;CURSOR UP WITH ROLL DOWN 



ADD M 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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20 
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20 
20 
20 
20 
20 
20 
20 
20 
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20 
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20 
20 
20 
20 
20 



8080 MACRO ASSEMBLER, VER 2.4 



ERRORS = PAGE 131 



1D58 
1059 

1D5B 
1D5E 
105F 
1061 
1062 
1D62 
1063 
1D64 
1D67 
1B6A 

1D6B 
106B 
1D6C 
1D6F 
1071 



1D72 
1D72 
1D74 
1D76 
1079 
107C 



107F 
107F 
1081 
1084 



1087 
1087 
1089 
108C 



108F 
108F 
1091 



77 

0618 

FA6210 

77 

F6FF 

C9 

AF 

77 

CDF90B 

CA6B10 

CO 



AF 

32C1FF 
F600 
C9 



2E09 

1E03 

C07410 

21FF24 

C3F304 



0E02 
110AFF 

C3A410 



0E07 

1109FF 

C3941D 



0E4F 
11DBFF 



CUPU1 



CUPU2 



MOV 
SUI 
JM 

mov 

ORI 

RET 

E«U 

XRA 

MOV 

CALL 

41 

RNZ 

EGU 
XRA 
STA 
ORI 
RET 



M,A 

MXROW+1 

C0PU1 

M,A 

377Q 

$ 

A 

M,A 

RLLDN 

CUPU2 



A 
CRCOL 

Ob 



; FIRST LINE 
;N0 



r 
;** 

; b 

;** 

DSF 



************************** 
FSFKY - DEFINE SOFT KEYS * 
************************** 

KY EGU $ 

MVI L,SRNRW 
MVI E,3 
CALL CRAL1 
LXI H # DSTAB 
JMP ECAPA 



;CLEAR SOFT KEY PARAMETERS 
;T0 ZERO 

;SET RANGE TABLE FOR SOFT KE 
DEFINITION ESCAPE SEGUENC 



A - DEFINE ATTRIBUTE CODE 

* NORMAL 

1 = LOCAL ONLY 

2 *■ TRANSMIT ONLY 



0F1 



DS1 



0F1 



00 EGU $ 

MVI C # 2 ;SET MAXIMUM VALUE AND 

LXI D,PARM2 ^PARAMETER TO BE SET 

JMP 0F220 ;SET PARAMETER AND EXIT 

K - KEY NUMBER TO BE DEFINED 

10 EGU $ 

MVI CNFCTK-1 ;SET MAXIMUM VALUE AND 

LXI D,PARM3 ^PARAMETER TO BE SET 

JMP 0F200 ;SET PARAMETER AND EXIT 

L - SET LENGTH OF INPUT 

20 EGU $ 

MVI C,MXCOL ;SET MAXIMUM VALUE AND 
LXI D # PARM1 

FALL INTO EVALUATION ROUTINE 



EVALUATE AND SET PARAMETER 

D = MAXIMUM ALLOWABLE VALUE 

E - LSB OF PARAMETER TO BE SET (MSB = BASEH) 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE- 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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1094 
1094 
1097 
1098 
1099 
109A 
1090 
1D9E 
10A1 
1DA1 
10A4 
10A4 
10A7 
10AA 
1DAC 



10AF 
1DB2 
10B5 
10B8 
10B9 
1DBA 
1DB0 
10C0 
10C3 
10C5 
10C8 
10CA 
10CB 
10CE 
1001 
1004 
1007 
1008 
1D0B 
10DE 
1DE1 
10E4 
1DE6 
1DE9 
10EC 
10EF 
10F0 
1DF3 
10F4 
1DF6 
10F9 
10FB 
10FE 
1E00 
1E00 
1E03 
1E06 
1E09 



2A0EFF 

2B 

7C 

BO 

C2A110 

3C 

CAA410 

220EFF 

C0860F 
3A88FF 
E620 
C2FB04 



€08917 

CC1B1E 

3A09FF 

87 

3C 

32C0FF 

21A6FF 

C04EOB 

3E50 

C00A1B 

3E51 

90 

3209FF 

3A0BFF 

32C1FF 

C00F1F 

B7 

CA0C1E 

2AC3FF 

COBAOB 

3AC1FF 

FE4F 

C40618 

CD771E 

21C0FF 

35 

3A0AFF 

30 

3E4E 

FAQ01E 

3E4C 

CAO01E 

3E54 

CD5120 
C0151E 
211 F25 
C3F304 



0F200 EftU $ 

LHLD I DAT A 
OCX H 
MOV A,H 
CMP L 
JNZ DF210 
INR A 
JZ OF 220 

0F210 EQU $ 

SBLD IOATA 

0F220 EQU $ 

CALL CKLIO 
LOA CHAR 
ANI 406 
JNZ ECAPB 



;ENTRY FOR KIN VALUE = 1 

;6ET INPUT PARAMETER 

;ADJ0ST PARAMETER TO ONE LES 

; CHECK FOR ZERO PARAMETER 

;OOES MSB=LSB? 

;N0 - STORE AOJUST VALUE 

;IS AOJUST VALUE -1 

;YES - DON'T STORE NEW VALUE 

;N0 - STORE ADJUSTED VALUE 



;EVALUATE AND SET PARAMETERS 
;RECALL INPUT CHARACTER 
;IS IT UPPER CASE? 
;N0 - CONTINUE ESCAPE SEG 
YES - SET NEW DEFINITION 



***** 

UPPE 
***** 



******** 

R CASE C 
******** 

CALL CK 

CZ SW 

LOA 

ADD 

INR 

STA 

LXI 



PA 

A 

A 

CR 

H, 



CALL MK 
MVI A, 
CALL FD 
MVI A # 



*********************************** * 

HARACTER INPUT - EVALUATE SEQUENCE * 
************************************ 

SFK ;SOFT KEY DEFINE MODE? 

AP ;NQ - SET TO SOFT KEY DISPLA 

RM3 ;COMPUTE DESIRED KEY f)ATA RO 

;= 2*(KEY NUMBER) + 1 
ROW 

STKYS ;LOCATE THE START OF THE 
SC1 ;DATA ROW 
MXCOL+1 

LSO ;LOCATE THE END OF THE DATA 
MX COL +2 ;ROW + 1 



SUB 
STA 
LDA 
STA 



B 

PA 
PA 
CR 



CALL DP 
ORA A 
JZ DS 
LHLD CR 
CALL NT 
LDA CR 
CPI MX 
CNZ CE 
CALL CR 
LXI H, 



DS230 



OCR 

LOA 

OCR 

MVI 

JM 

MVI 

JZ 

MVI 

EQU 



M 

PA 

A 

A, 

OS 

A, 

DS 

A, 
S 



CALL DP 
CALL SW 
LXI H, 
JMP EC 



RM3 
RM1 
COL 
ASC 

250 
ADR 
CHO 
COL 
COL 
RLA 
PRT 
CRROW 

RM2 

NX 

230 

LX 

230 

TX 

TST 
APO 
DSTB2 
APA 



SAVE END COLUMN NUMBER 
TRY TO EXTEND LINE TO 

;END OF NEW DATA LINE 
TRY TO ALLOCATE LINE NEEDED 
COLUMN POSITION ALLOCATED? 
NO - DON'T SET NEW VALUE 
YES - GET ADDRESS OF 

;ENO OF NEW DATA LINE 
GET NUMBER OF DATA CHARS 
FULL LINE USED? 
NO - CLEAR EXCESS CHARACTER 
SET CURRENT COLUMN TO ZERO 
SET FOR ATTRIBUTE ROW 



;GET ATTRIBUTE PARAMETER 
;WHICH ATTRIBUTE TO SET? 

;(N = NORMAL) 
;0 - SET AS NORMAL KEY 

;(L = LOCAL ONLY) 
;1 - SET FOR LOCAL ONLY 
;2 - SET FOR TRANSMIT ONLY 

;STORE ATTRIBUTE LETTER 
;RESTORE ACTIVE DISPLAY 
;SET RANGE TABLE FOR SOFT 
;KE¥ DATA ACCUMULATION 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
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^ *********************************** Hit a* ********* 
; NOT ENOUGH BLOCKS AVAILABLE FOR SOFT KEY DATA * 
; RESTORE OLD STATE AND IGNORE DEFINITION * 

************************************************* 

1E0C DS250 EQU $ 

1E0C 3AD9FF LDA PARM3 ;RECALL END OF DATA LINE 

1E0F 32C1FF STA CRCOL 

1E12 CDBE18 CALL CEARL ;CLEAR ANY ADDED CHARACTERS 

• ********************************************** 

; SWAP - SWAP DISPLAY PARAMETERS BETWEEN SOFT * 
; KEY AND NORMAL DISPLAY * 

~ ********************************************** 



ENTRY: DON B T CARE 

EXIT : DISPLAY PARARTERS EXCHANGED 
ALL REGISTERS DESTROYED 



1E15 SWAPO EQU $ 

1E15 3AF8FF LDA CFL6S ;GET COMMON FLAGS 

1E18 E608 ANI DFSKY ;DEFINE SOFT KEY MODE? 

1E1A CO RN2 ;N0 - DON'T DO SWAP 

tElB SWAP EQU $ 

1E1B 21AEFF LXI H,DPTYP ;SET DISPLAY TYPE FLAG 

1E1E 7E MOV A r R ; TO VALUE FOR DISPLAY TO 

tElF 2F CMA ;MADE ACTIVE 

1E20 77 MOV M,A 

1E21 SWAP1 EQU $ 

1E21 OEOF MVI C,NMSWP ;SET SWAP COUNT 

1E23 11AFFF LXI D,SPSTR ;SET ADDRESS OF LOCATIONS 

1E26 21BEFF LXI H # RTM6N ;T0 BE EXCHANGED 

; EXCHANGE DISPLAY PARAMETERS 

1E29 SP010 EQU $ 

1E29 46 MOV B,M ;GET CURRENT SETTING 

1E2A 1A LDAX D ;GET STORED SETTING 

1E2B EB XCH6 ; EXCHANGE ADDRESSES 

1E2C 70 MOV M^B ;STQRE NEW SAVE VALUE 

1E2D 12 STAX D ; STORE NEW CURRENT VALUE 

1E2E EB XCH6 ;RESTORE ADDRESSES 

1E2F 13 INX D ;INCREMENT TO NEXT VALUE 

1E30 23 INX H 

1E31 OD OCR C ;ALL VALUES EXCHANGED? 

1E32 C2291E JNZ SP010 ;N0 - MOVE NEXT VALUE 

1E35 C9 RET ;YES - RETURN 

r 

^ ******************** 

; SET SOFT KEY DATA * 

; ******************** 

1E36 DS300 EQU $ 

1E36 CD8917 CALL CKSFK ;SOFT KEY ALREADY ENABLED? 

1E39 CC1B1E CZ SWAP ;N0 - SET SOFT KEY DISPLAY 

1E3C 21F4FF LXI H,HFLG1 ;GET SOFT MODE FLAGS 

1E3F 7E MOV A,M 

1E40 F5 PUSH PSW ;SAVE SOFT MODE FLAGS 

1E41 3600 MVI M„0 ; FORCE INSERT CHARACTER OFF 

1E43 CD2B14 CALL FESC1 ;ADD INPUT TO DEFINITION 

1E46 F1 POP PSW ;RECALL SOFT MODE FLAGS 
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1E47 


32F4FF 


STA 


MF 


1E4A 


CD151E 


CALL 


SW 


1E4D 


CD A 405 


CALL 


GT 


1E50 


21DBFF 


LXI 


H, 


1E53 


35 


DCR 


M 


1E54 


F20305 


JP 


EC 


1E57 


21A323 


LXI 


H, 


1E5A 


C3F304 


JMP 


EC 






• ************* 



1E5D 
tE50 
1E60 
1E63 



1E64 
1E64 
1E67 



^ 






1E6A 
1E6A 
tE6D 
1E6F 
1E72 
1E75 
1E77 
1E77 
1E7A 
1E7A 
1E7D 
1E80 



tE81 
1E81 
1E84 
1E85 
1E88 



1E8B 
1E8B 
1E8E 
1E90 



CD1B12 
CAC70A 
C9 



CD1B12 
C20305 



3AFBFF 

E602 

CA771E 

216CFF 

3620 

3ABFFF 

32C1FF 
320780 
C9 



CD8917 
CO 

21A324 
C3F504 



; WAIT FOR CHA 
- ************* 



0S3 50 



EQU $ 
CALL OX 
JZ LF 
RET 



LG1 
APO 
DC1 
NWCOL 

AP1 

DSTB3 

A PA 

***** 

RACTE 

***** 

B2D 
EEC 
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;RESTORE ORIGINAL VALUES 
^RESTORE ACTIVE DISPLAY 
;SET DISPLAY CURSOR 



;ALL CHARACTE 

;N0 - CONTlNU 

;YES - SET TO 

;CHAR EXCEP 

**************** 

R TO RESTORE NOR 

**************** 

;LINE FEED CO 
;DATA FROM KE 
;YES - DO LIN 
;N0 - RETURN 
CODES BY CA 
IN "CHINT 



RS DONE? 

E ESC SEQUENCE 

yAIT FOR AMY 
T CR, LF, OR DC 
********** 
HAL MODE * 
********** 

DE 

YBOARD? 

E FEED 

TO RE-ENABLE AL 

LL TO "ESCEND" 

CLE AN -UP 



DS36G 



EQU $ 
CALL DX82D 
JNZ ECAPt 



;RETURN CODE 

;DATA FROM KEYBOARD 

;N0 - CONTINUE WAITING 

YES - DO RETURN OPERATION 

YES - DO RETURN OPERATION 



;************************************ 

; CRRET - SET CURSOR TO LEFT MARGIN * 
************************************* 



ENTRY: DON*T CARE 

EXIT : A,CURCOL = LEFT MARGIN SETTING 
IF SPOW NOT DISABLED, SPOW SET 



CRRET 



EQU 

LDA 

ANI 

JZ 

LXI 

MVI 

EQU 

LDA 

EQU 

STA 

STA 

RET 



; ********** 
; DISPLAY E 
********** 
EQU 



CRPRT 



CRET1 



$ 

KJKPR 

SLDIS 

CRPRT 

H,SPOWL 

M,SOVON 

$ 

LTM6N 

S 

CRCOL 

ICRCL 



;GET STRAP SETTINGS 
;SPOy DISABLED? 
;YES - RETURN CURSOR ONLY 
;N0 - SET SPOW LATCH 



;SET CURSOR TO LEFT MARGIN 

;UPDATE CURRENT COLUMN NOTBE 

;AND SET DISPLAY CURSOR 
; RETURN 



DSPEN 



3A89FF 
E60F 



CALL 

RNZ 
LXI 

J MP 
;********** 

; DISPLC - 

;********** 

DSPLC EQU 
LDA 
ANI 

DSPCO EQU 



************ 

NHANCEMENT * 
************ 

$ 
CKSFK 



;DEFINE SOFT KEY MODE? 

;YES - NO DISPLAY ENHANCEHEN 

H,DNTAB ;SET FOR DISPLAY ENHANCEMENT 

ECAPO 

******************************** 
ENTER DISPLAY ENHANCEMENT CHAR * 
******************************** 
$ 

DCHAR ;GET DISPLAY CHARACTER 

17Q ;EXTRACT ENHANCEMENT BITS 

$ 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



8080 MACRO ASSEMBLER, VER 2.4 



ERRORS = PAGE t35 



1E90 0630 



1E9B 
1E9B 
1E9E 
1E9F 



MVI B # 60Q 



;SET MASK TO SAVE ALT CHAR 
;*********************************************** 

; DISPCl - ENTER ENHANCEMENT OR FLAG €HARACTER * 
I*********************************************** 



3A89FF 

87 

F2DF1F 



ENTRY: A = CHARACTER TO BE STORED 

B = MASK TO SAVE UNCHANGED PART CUSED 
ONLY FOR ENHANCEMENT CHARACTERS) 



EXIT r 



1E92 




D 


1E92 


F680 




1E94 




D 


1E94 


3289FF 




1E97 


78 




1E98 


3277FF 


i 

r 



SPC1 



SPC2 





SEE "DISPLA 


EQU 


$ 


ORI 


20QG 


EQU 


S 


STA 


DCHAR 


MOV 


A,B 


STA 


CSPEN 



;ADD BIT FOR REFRESH LOGIC 

;STORE NEW ENHANCEMENT CODE 
;STORE MASK FOR ENHANCEMENT 

;BITS NOT TO BE ALTERED 
FALL INTO DISPLAY ROUTINE 



************************************ 

DISPLA - ADD CHARACTER TO DISPLAY * 
************************************ 

ENTRYr CURCOL,CURROW = SCREEN POSITION WHERE 
CHARACTER IS TO BE INSERTED 
DCHAR = CHARACTER TO BE DISPLAYED 
CDSPEN = MASK TO MASK OUT COMMON BITS 
IF DCHAR IS A DISPLAY CONTROL BYTE 



EXIT 



e 
I 
r 

# 
* 



DSP LA 



A = 0, NO PLACE FOR CHARACTER 
A n 0„ CHARACTER PROCESSED 

B = CHARACTER REPLACED IF ADDITION 

DONE BY INSERT 

D,E = ADDRESS OF CHAR IN DISPLAY 



EQU 


$ 


LDA 


DCHAR 


OR A 


A 


JP 


DS060 



1EA2 


3AC1FF 




1EA5 


3D 




1EA6 


CD6C07 




tEA9 


FA720B 




1EAC 


C22920 


/ 

i 


1EAF 


4F 


r 


1EB0 


OC 




1EB1 


CDDAOF 




1EB4 


C2C51E 




1.EB7 




D 


1EB7 


IB 




1EB8 


21C2C1 





;6£T CHAR TO BE STORED 
;IS THIS ASCII CHAR? 
;YES - CONTINUE 
************************************ 

CONTROL CODE TO BE ENTERED INTO * 

DATA STREAM - FIND CHAR PRECEDING * 

THIS COLUMN * 

************************************ 

;GET CURRENT COLUMN NUMBER 
;SET FOR PREVIOUS COLUMN 
;DOES LINE EXIST? 
;N0 - SOUND BELL AND EXIT 
WITH A-REGISTER = 
JNZ DI100 ;COL BEYOND EOL - EXTEND LIN 
************************ 

PREVIOUS COLUMN FOUND * 
************************ 



LDA 


CRCOL 


DCR 


A 


CALL 


RADRO 


JM 


M0CK1 



S020 



MOV C # A 

1NR C 

CALL CPROT 

JNZ DS030 

EQU $ 

DCX D 

LXI H,EN0PR*256+XONLY 



;SAVE COLUMN IN C 

;SET C TO NEXT COLUMN NUMBER 
^PREVIOUS CHAR PROTECTED? 
;N0 - CONTINUE 

;YES - SET PTR TO NEXT CHAR 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F IL E 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



1EBB 


CD221B 




CALL 


FNDCH 


1EBE 


CA1420 




JZ 


DSQ92 


1EC1 


21C1FF 




LXI 


H,CRCOL 


1EC4 


4E 




MOV 


C,M 






i 
;****************** 






; SEARCH FOR PLACE 






I ****************** 


1EC5 




DSG30 


EftU 


$ 


1EC5 


CBBBOB 




CALL 


NTCHR 


1EC8 


47 




MOV 


B,A 


1EC9 


2189FF 




LXI 


H # DCHAR 


1ECC 


FEC4 




CPI 


SPFLG 


1ECE 


CAF11E 




JZ 


DS035 


1ED1 


FECC 




CPI 


EOL 


1EB3 


7E 




MOV 


A,M 


tED4 


CAC71F 




JZ 


OS 050 


1ED7 


FEC4 




CPI 


SPFL6 


1ED9 


CAOF50 




JZ 


C1 104 


1EDC 


78 




MOV 


A, 6 


1EDD 


87 




ADD 


A 


1EDE 


7E 




MOV 


A^M 


1E0F 


D2C71F 




JNC 


DS050 


1EE2 


FAF91E 




JM 


DS040 


1EE5 


87 




ADO 


A 


1EE6 


FAC51E 




JM 


DS030 



FILE 20 
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FILE 20 

FILE 20 

FILE 20 

;IS NEXT CHARACTER PROTECTED FILE 20 

;YES - LOOK FOR NEXT FIELD FILE 20 

;YES - RECALL COLUMN VALUE FILE 20 

FILE 20 

FILE 20 

t* ************* FILE 20 

OR CHARACTER * FILE 20 

r************** FILE 20 

FILE 20 

;6ET NEXT CHAR FILE 20 

;SAVE EXISTING CHAR IN B-REG FILE 20 

FILE 20 

;N0N-D1SPLAYIN6 TERMINATOR? FILE 20 

;YES - DELETE IT FILE 20 

;EXISTING CHARACTER AN EOL? FILE 20 

;(GET CHAR TO BE DISPLAYED FILE 20 

;YES - ADD CHARACTER TO LINE FILE 20 

;N0N-DISPLAYIN6 TERMINATOR? FILE 20 

;YES - INSERT TERMINATOR FILE 20 

;N0 - RECALL EXISTING CHAR FILE 20 

^EXISTING CHARACTER ASCII? FILE 20 

;(GET CHAR TO BE DISPLAYED FILE 20 

;YES - INSERT NEW CHARACTER FILE 20 

;FLAG CHAR - ADD FLAG TO DIS FILE 20 

;NEW CHAR DISPLAY CONTROL? FILE 20 

;N0 - GO TO NEXT CHARACTER FILE 20 

************************************ FILE 20 

; MERGE NEW DISPLAV ENHANCEMENT * FILE 20 

; WITH CODE ALREADY IN THIS COLUMN * FILE 20 

;*********************************** FILE 20 

1EE9 3A77FF LDA CSPEN ;GET ENHANCEMENT MASK FILE 20 

1EEC AO ANA B ;EXTRACT BITS TO BE SAVED FILE 20 

1EED B6 ORA M ; COMBINE WITH NEW ENHANCEMEN FILE 20 

IEEE C3B51F JMP DS044 ;STORE THE NEW DISPLAY CODE FILE 20 

;********************************************** FILE 20 

; NON-DISPLAYING TERMINATOR FOUND - DELETE IT * FILE 20 

;********************************************** FILE 20 

FILE 20 

;IS NEW CHAR TERMINATOR ALSO FILE 20 

;YES - RETURN FILE 20 

;N0 - DELETE THE CHARACTER FILE 20 

;CONTINUE SCAN FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

FILE 20 

IS THIS SAME FLAG CHAR? FILE 20 

;YES - RETURN CA # 0) FILE 20 

;NEW CHARACTER DISPLAY CNTL? FILE 20 

;(RESTORE CHARACTER) FILE 20 

;YES - CHECK PROTECTED FIELD FILE 20 

;IS NEW CHAR TYPE DEFINITION FILE 20 

;CRECALL OLD FLAG CHAR) FILE 20 

;N0 - ADD FIELD DEFINITION FILE 20 

;IS OLD CHAR TYPE DEFINITION FILE 20 

;YES - REPLACE THE CHARACTER FILE 20 

;N0 - GO TO NEXT CHARACTER FILE 20 

;*********************************************** FILE 20 

; FIELD DEFINITION CHARACTER TO BE ADDED - PUT * FILE 20 



1EF1 




DS035 


ECJU 


$ 


1EF1 


BE 




CMP 


M 


1EF2 


C8 




RZ 




1EF3 


CDB518 




CALL 


CRDL2 


1EF6 


C3C51E 




JMP 


DS030 






r 
;****************** 






; FLAG 


CHAR 


FOUND * 






■ ****************** 


TEF9 




DS040 


EGU 


$ 


f EF9 


B8 




CMP 


B 


1EFA 


C8 




RZ 




tEFB 


87 




ADD 


A 


1EFC 


1F 




RAR 




1EFD 


F2B81F 




JP 


DS045 


1F00 


FEC5 




CPI 


ALPHA 


1F02 


78 




MOV 


A # B 


1F03 


FA0E1F 




JM 


OS 042 


1F06 


FEC5 




CPI 


ALPHA 


1F08 


F21D1F 




JP 


DS043 


1F0B 


C3C51E 




JMP 


DS030 
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1F0E 
1F0E 
1F10 
1F13 
1F15 
1F16 
1F19 
1F1A 



1F1D 
1F1D 
1F1E 
1F1F 
1F22 
1F25 
1F26 



1F27 
1F27 
1F2A 
1F2D 
1F30 
1F32 
1F35 
1F38 
1F39 
1F3A 
1F3D 
1F3F 
1F41 

1F44 
1F44 
1F47 
1F47 
1F4A 
1F4B 
1F4C 

1F4D 
1F4D 
1F4F 
1F52 
1F55 
1F58 
1F59 
1F5A 
1F5D 
1F5F 
1F61 

1F64 
1F64 
1F66 



FEC5 

F20F50 

3EC0 

B8 

CAC51E 

BE 

CA0F5O 



1A 

47 

3A89FF 

216CFF 

BE 

C8 



CD1B12 

C2471F 

3A12FF 

E606 

C2471F 

CD2E07 

1A 

B7 

F2441F 

E6F0 

FEAO 

CA401F 



CD6907 

3A89FF 
12 
3C 
C9 



26FF 

CD 1816 

CD2E07 

C2641F 

1A 

B7 

F2641F 

E6F0 

FEAG 

CA7A1F 



26 FF 
CD131D 



AHEAD OF TYPE DEFINITION OR AFTER "STPR" * 
********************************** 



; ********** *** 

DS042 EQU $ 
CPI AL 
JP CI 
MVI A, 
CMP B 
JZ DS 
CMP M 
JZ CI 
J ************* 
; REPLACE EXIS 

;************* 



PHA ;IS OLD CHAR TYPE DEFINITION 
104 ;YES - INSERT FIELD DEF 
STPR ;N0 - STORE NEW FIELD DEF 

;QLD CHAR = START PROTECT? 
030 ;YES - LOOK TO NEXT CHAR 

;IS NEW CHAR A STPR? 
104 ;YES - INSERT BEFORE UNPROTC 
************************ 
TING DISPLAY CHARACTER * 
************************ 



DS043 



EttU 

LDAX 

MOV 

LDA 

LXI 

CMP 

RZ 



$ 

D 

B, 

DC 

H, 



;PUT EXISTING CHARACTER INTO 
A ;B-REG FOR SOFT KEY CHECK 

HAR ;GET CHAR TO BE DISPLAYED 
SPOWL ;CHECK AGAINST SpOW LATCH 

;INPUT = SPACE AND SPOW SET? 

;YES - RETURN (A M 0) 



* 
BV960 



2. + 3. EBEBE PRUEFEN 



Y960B 
Y960C 



Y960D 



Y960G 



EQU 

CALL 

JNZ 

LDA 

ANI 

JNZ 

CALL 

L DAX 

ORA 

JP 

ANI 

CPI 

JZ 

EQU 

CALL 

EQU 

LDA 

STAX 

INR 

RET 

EQU 

MVI 

CALL 

CALL 

JNZ 

LDAX 

ORA 

JP 

ANI 

CPI 

JZ 

EQU 
MVI 
CALL 



$ 

DXB2D 

Y960C 

KCTSH 

LF1KY+LF2KY 

Y960C 



RADR4 

D 

A 

V960B 

YOFO 

YOAO 

Y960D 

S 

RADDR 
$ 

DCHAR 

D 

A 



H,BASEH 

CURPL 

RADR4 

V9606 

D 

A 

Y960G 

YOFO 

YOAO 

Y960K 



H,BASEH 
CURPR 



; SHI FT KEYS 
;6ET.CHAR. 



;ASCI 

;ALT- 
;YES 



CHAR. 



ASCII 



FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 



20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

?0 

20 

20 

20 

20 

20 

20 

20 

20 

2G 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 
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1F69 
1F6C 
1F6D 
1F6E 
1F71 
1F72 
1F73 
1F76 
1F77 

1F7A 
1F7A 

1F7C 
1F7F 
1F82 
1F83 
1F85 
1F87 
tF88 
1F88 
1F8E 
1F8F 
1F8F 
1F92 
1F94 
1F96 
1F99 
1F9C 



1F9D 
1F9D 
1FA0 
1FA2 
1FA4 
1FA7 
1FA8 
1FAA 
1FAC 
1FAF 
1FAF 
1FB2 
1FB3 
1FB3 
1FB4 



1FB5 
1FB5 



CD2E07 

C5 

D5 

C01618 

D1 

C1 

3A89FF 

12 

C38F1F 



26FF 

CD131D 

C0 2E07 

1A 

E60F 

F680 

12 

CDBBOB 

3A89FF 

12 

CDBBOB 

E6FG 

FE80 

CC1618 

CD6907 

C9 



3289FF 

E6F0 

FE8Q 

C2AF1F 

78 

E6F0 

FEAO 

CAB31 F 

3A89FF 
12 

3C 
C9 



C39D1F 



Y960K 



Y96GM 



r 
r 



BY970 



Y970D 
Y970E 



DS044 



CALL 


RADR4 


PUSH 


B 


POSH 


D 


CALL 


CR0L1 


POP 


D 


POP 


B 


LBA 


DCHAR 


STAX 


D 


JRP 


Y960R 


EQU 


$ 


MVI 


H^BASEH 


CALL 


CURPR 


CALL 


RADR4 


LDAX 


D 


ANl 


YOOF 


OR I 


20 OQ 


STAX 


D 


CALL 


NTCHR 


LDA 


DCHAR 


STAX 


D 


EQU 


$ 


CALL 


NTCHR 


AMI 


YOFO 


CPI 


200Q 


CZ 


CR0L1 


CALL 


RABDR 


RET 





;INS CHAR 



EQU J 

STA 

AN I 

CPI 

JNZ 

MOV 

ANI 

CPI 

JZ 

EQU 

LDA 

STAX 

EQU 

INR 

RET 



EQU 
JHP 



DCHAR 

YOFO 

Y080 

Y970D 

A,B 

YOFO 

YOAO 

Y970E 

$ 

DCHAR 

D 

$ 

A 



$ 

BY 970 



STORE THE NEW CHARACTER 



1FB8 
1FB8 
1FB9 



************************* 

CHAR FOUND AND * 

LAY CONTROL TO BE ADDED * 

************************* 

DS045 EQU $ 



; ****** 

; FLAG 

; Dispi 
;***** 



78 
FECO 



MOV 
CPI 



A,B 
ST PR 



;RECALL EXISTING CHARACTER 
/BEGINNING A PROTECTED FIELD 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



8080 MACRO ASSEMBLER, VER 2.4 



1FBB 
1FBE 
1FC1 
1FC4 



1FDF 
1FDF 
1FDF 
1FE2 
1FE5 
1FE5 
1FE8 
1FE9 



1FEC 
1FEE 
1FF1 



1FF4 
1FF4 
1FF7 
1FF8 
1FFB 



C2C51E 
CB7317 
CAC51E 
C3B71E 



1FC7 




1FC7 


87 


1FC8 


FAD51F 


1FCB 


3A77FF 


1FCE 


2EC6 


1FD0 


A6 


1FD1 


2E89 


1FD3 


B6 


1FD4 


77 


1FD5 




1F05 


78 


1FD6 


B7 


1FD7 


F20F50 


1FDA 


OEOO 


1FDC 


C33E20 



CD6907 
CAFE1F 

FAF41F 

00 

C22920 



FE4F 

C23E20 

C30E20 



CD7317 
C8 

CD147Q 
C32220 



1FFE 




1FFE 


4F 


1FFF 


3AF4FF 


2002 


E602 


2004 


CA0E2O 



JNZ 
CALL 
JZ 
JMP 
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DS030 ;N0 - MOVE TO NEXT CHAR 

CKFMS ; FORMAT MODE? 

DS03Q ;N0 - ADO CHAR TO DISPLAY 

0S020 ;Y£S - LOOK FOR NEXT FIELD 



J***************************************** 

; ASCII OR EOL FOUND * 

; MERGE NEW DISPLAY CONTROL IF NECESSARY * 
- ***************************************** 



DS05Q 



DS054 



ESU 

ADD 

JM 

LDA 

MVI 

ANA 

MVI 

ORA 

MOV 

EQU 

MOV 

ORA 

JP 

MVI 

JMP 



$ 

A ;NEW CHAR DISPLAY CONTROL? 

DS054 ;N0 - ADD CHAR TO DISPLAY 
CSPEN ;YES - GET MASK 
L„LTDCD-BASE ;GET LAST ENHANCEMENT 
M ;EXTRACT BITS TO BE SAVED 

L # DCHAR-BASE 



M 
M # A 
$ 

A,B 
A 

€1104 
C„Q 
DI110 



; COMBINE WITH NEW 
;STORE 

;WAS CHAR ASCII? 



ENHANCEMEN 



;YES - 

;N0 - 



DO 
ADD 



INSERT 
SINGLE 



CHAR 



• ***************************************** 

; ENTER ASCII CHARACTER INTO DATA STREAM * 
J***************************************** 



DPASC 
DS060 



DSPLO 



EQU $ 
EQU $ 
CALL RADOR 



JZ 

EQU 

JM 

OCR 
JNZ 



DS080 
$ 

0SO7O 

C 

DI100 



;GET MEMORY 
;CHAR FOUND 



ADDRESS 
BY RCADDR 



;RETURN IF LINE NOT BUILT 
;MORE THAN ONE CHAR NEEDED 



; COMPARE WITH MAX COLUMN 
;NOT MAXIMUM COLUMN 



DS070 



J******************************** 

; SINGLE CHARACTER REQUIRED * 
; CHECK FOR LAST COLUMN OF LINE * 

;******************************** 

CPI MX COL 
JNZ 01110 
JMP DS090 

;******************************** 

; LINE NOT BUILT * 

; PERFORM HOMEUP IF FORMAT MODE * 
******************************** 

EQU $ 

CALL CKFMS ; FORMAT MODE? 

RZ ;N0 - RETURN (A = 0) 

CALL ZBELL ;YES - SOUND BELL 

JMP DS093 ;HOME UP AND TRY AGAIN 



; ******** **************** 

; CHARACTER REPLACEMENT * 

;************************ 

DS080 E«y $ 

MOV C,A 
LDA MFL61 
ANI ISCHR 
JZ DS090 



;SAVE COLUMN IN 
;6ET TERMINAL 
;IN CHARACTER 



C 

MODE FLAGS 

INSERT MODE? 



;N0 - ADD CHARACTER TO DISPL 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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2029 
2029 
202A 
202 D 
2030 
2033 
2036 



2038 
203B 

203E 
203E 
2041 
2044 
2047 
2047 
2048 
2049 
204 C 
2040 
2050 
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;YES - GET EOL SHIFTED FLAG 
;HAS LINE BEEN EXTENDED? 
;NO - PERFORM INSERT CHAR 

;CURSOR IN PROTECTED FIELD? 
;N0 - STORE THE CHARACTER 

;DATA COMM OR I/O BUFF CHAR? 
;N0 - SOUND THE BELL 
;GET CHAR TO BE DISPLAYED 
;IS IT A CONTROL CHARACTER? 
;YES - DON'T TAB {RETURN AM 

;N0 - TAB TO NEXT FIELD 

;^UMP IF FIELD FOUND 

;ANY FIELDS IN DISPLAY? 
;YES - ADD CHARACTER TO FIEL 
;N0 - RETURN CA # 0) 



^ ******************************************* ****** 

; LINE MUST BE EXTENDED TO ACCOMODATE CHARACTER * 
; - EXTEND TO ONE COLUMN BEFORE DESIRED COLUMN * 
; ************************************************* 



2007 


3A90FF 




LDA 


EOLMV 


200A 


B7 




ORA 


A 


200B 


CA1250 




JZ 


CR050 


200E 




DS090 


EQU 


$ 


200E 


CDDAOF 




CALL 


CPROT 


2011 


C21D1F 




JNZ 


DS043 


2014 




DS092 


equ 


$ 


2014 


CD1B12 




CALL 


DXB2D 






# 


CZ 


ZBELL 


2017 


3A89FF 




LDA 


DC BAR 


201A 


B7 




ORA 


A 


201B 


F8 




RM 




201 C 


CD461A 




CALL 


FLDSR 


201F 


C29B1E 




JNZ 


DSPLA 


2022 




DS093 


EQU 


$ 


2022 


CDAE19 




CALL 


CRPH1 


2025 


C29B1E 




JNZ 


DSPLA 


2028 


C9 




RET 





ENTRY: C = NUMBER OF CHARACTERS REQUIRED 



DITOO 



OD 

C23E20 

CDDAOF 

CA1420 

219BFF 

3601 



CD0FO9 
C34720 



CDDAOF 
CA1420 
CD0309 

B7 

C8 

3A9BFF 

3D 

F29B1E 

C9 



DI110 



DS114 



EQU 

DCR 

JNZ 

CALL 

JZ 

LXI 

MVI 



CALL 
JMP 

EQU 

CALL 

JZ 

CALL 

EQU 

ORA 

RZ 

LDA 

DCR 

JP 

RET 



$ 

C 

OHIO 

CPROT 

DS092 

H,NCHAR 

M,1 



DSPL2 
DS114 

$ 

CPROT 

DS092 

DSPL1 

$ 

A 

NCHAR 

A 

DSPLA 



i 
r 
t 

m 

r 

r 

i 
» 
r 

r 

i 



;MORE THAN ONE CHAR TO ADD? 

;N0 - ADD MULTIPLE CHARACTER 

; CURSOR IN PROTECTED FIELD? 

;YES - TAB TO NEXT FIELD 

;N0 - SET "NCHAR" TO STORE 
; BLANK OVER EOL (I.E., 
MAKE DISPLAY ROUTINE 
THINK MORE THAN ONE 
CHARACTER BEING ADDED) 

;EXTEND LINE BY ONE CHARACTE 

;CHECK MEMORY LOCKED 



;CURSOR IN PROTECTED FIELD? 
;YES - TAB TO NEXT FIELD 
;N0 - EXTEND LINE 

;MEM0RY LOCKED? 
;YES - RETURN FAIL (A = 0> 
;6ET ft OF CHARACTERS ADDED 
;SINGLE CHARACTER ADDED? 
;N0 - TRY TO STORE AGAIN 
;YES - STORE DONE BY DISPLAY 
(A tt 0) 



****** ***************** 
DSPTST - DISPLAY TEST PATTERN 

ENTRY: A = CHARACTER TO BE DISPLAYED 
EXIT : A,B,C,D,E,L DESTROYED 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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20 
20 
20 
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20 
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20 
20 
20 
20 
20 
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20 
20 
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ERRORS = 



PAGE 141 



2051 
2051 
2054 



2057 
2057 
205 A 
205A 
205B 
205 E 
205F 



2062 
2065 
2066 
2069 
206A 
206B 
2070 
2071 
2072 



2073 
2074 
2077 
2077 
207A 
207A 
207B 
2080 
2083 
2085 
2088 
208A 



208D 
208D 
208 E 
208 E 
2091 
2094 



3289FF 
CD6B16 



217B1C 

E5 

CDDF1F 
B7 
CA8D2Q 



CD7317 

C8 

C01B12 

CO 

3A89FF 

2A86FF 

CF 

C8 

F1 



AF 
329CFF 

CD1470 

CB6915 

C00570 

C27A20 

FEOD 

C27720 

3E09 

C30870 



E1 

CB1B12 
CA1470 
C9 



DPTST 



EQU : 

STA 

CALL 



DCHAR ;PUT CHAR IN 

STDFQ ;SET DATA 

INHIBIT 



DISPLAY BUFFER 
COMM INPUT FLAG TO 
BELL ON FIELD SKIP 



DSPCBR - DISPLAY CHARACTER IN DCHAR 



DPCHR 
DPCHO 



EQU 

LXI 

EQU 

PUSH 

CALL 

ORA 

JZ 



CALL 

RZ 

CALL 

RNZ 

LDA 

LHLD 

RST 

RZ 

POP 



H,CRADV 

$ 

H 

DPASC 

A 
DH100 



CKFMS 

DXB2D 

DCHAR 
CKRTN 
RTJMP 



PSW 



;SET NORMAL EXIT ROUTINE 

;SAVE NORMAL EXIT ROUTINE 
;ADD ASCII CHAR TO DISPLAY 
;CHARACTER DISPLAYED? 
;N0 - DON'T MOVE CURSOR 
FALL INTO DISPLAY ROUTINE 

;FORMAT/SOFT KEY DEFINE MODE 

;N0 - DO NORMAL EXIT 

;BATA COMff OR IAO BUFF CHAR? 

;N0 - DO NORMAL EXIT 

;GET CHARACTER DISPLAYED 

;N0 - GET CHECK ROUTINE ADDR 

;IS IT A VALID CHARACTER? 

;YES - DO NORMAL EXIT 

;N0 - POP OFF NORMAL EXIT AD 



FIELD CHECK ERROR - LOCK UP UNTIL BACKSPACE HIT 



DH010 
DH020 



XRA 
STA 
EQU 
CALL 
EQU 
CALL 
CALL 
JNZ 
CPI 
JNZ 
NVI 
JMP 
;********** 

; CHARACTER 
; CHARACT 
;********** 
DH100 EQU 
POP 
EQU 
CALL 
SI 
RET 



DPCH1 



A 

CARIN 
$ 

ZB ELL 
S 

ICTMN 
ZETKY 
DH020 
CR 

DH010 
A,SPRPT 
ZBCTL 
******** 

NOT DIS 
ER FROM 
******** 

$ 
H 
$ 

DXB2D 
ZBELL 



;CLEAR OUT INPUT CHARACTER 
;T0 KILL FUNCTION KEYS 

; SOUND BELL 

;MONITOR THE TAPE DRIVES 

;ANY KEY HIT? 

;N0 - CONTINUE WAITING 

;IS IT THE RETURN KEY? 

;N0 - SOUND BELL, TRY AGAIN 

;YES - STOP RETURN KEY 

;FROM REPEATING AND EXIT 
************************ 

PLAYED - SOUND BELL IF * 
KEYBOARD * 

************************ 

;POP OFF NORMAL EXIT ROUTINE 

;INPUT FROM KEYBOARD 

;YES - SOUND BELL AND EXIT 

;N0 - RETURN ONLY 



; ******************************************** 
; EXPAND - EXPAND DISPLAY CONTROL TO ESCAPE * 
; SEQUENCE * 

********************************************* 



ENTRY: A,C = DISPLAY CONTROL BYTE 
EXIT : H = BASEH 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2f* 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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20 
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2095 
2095 
2098 
2099 
2 09 A 
209D 
20A0 
20A1 
20A2 
20A4 
20A7 
20A9 
20AC 
20AE 
20B1 
2 OB 2 
20B4 
20B6 
20B9 



20BB 
20BB 
20BC 
20BD 
20BF 
20C0 
20C1 
20C2 
20C4 
20C7 
20C9 
20CA 
20CD 



20CE 
20D0 
20D3 
2QD4 
20D6 
2007 
20D8 
20D9 
20DA 
20DC 

20DF 
20DF 
20E1 

20E4 
20E4 
20E6 



C04223 

87 

1F 

FAE920 

2176FF 

AE 

00 

E60F 

CABB20 

0626 

C02F13 

3E64 

CD3513 

79 

E60F 

F640 

CD3513 

2E76 



79 

AE 

E630 

71 

00 

79 

E630 

CAE420 

2E75 

BE 

CADF20 

77 



0629 

C02F13 

79 

E630 

OF 

OF 

OF 

OF 

€640 

CD3513 



3E0E 
C33513 



3E0F 
C33513 



A,B # L DESTROYED 



EPAND 



EQU 

CALL 

ADD 

RAR 

JM 

LXI 

XRA 

NOP 

ANI 

JZ 

MVI 

CALL 

MVI 

CALL 

MOV 

ANI 

ORI 

CALL 

MVI 



$ 
IITD1 

A 

EP100 

H # EHOUT 

M 

17Q 
EP010 
B,APSND 
EOUTB 
A,SALLD 
AOUTB 
A,C 
17Q 
100Q 
AOUTB 
L,EHOUT 



INITIALIZE CHAR BUFFER PTRS 
;IS CHAR DISPLAY CONTROL? 

;(RESTORE CHARACTER) 
;N0 - EXPAND FORMAT CONTROL 
;YES - COMPARE TO PREVIOUS 
;ANY CHANGES? 
;N0 - RETURN IMMEDIATELY 
;CHAN6E IN ENHANCEMENT? 

;N0 - CHECK NEW CHARACTER SE 
;YES - OUTPUT ENHANCEMENT 
;ESCAPE SEQUENCE; 
;<ESC>»<8>-<LQWER CASE B> 

;C0MPUTE ENHANCEMENT 

;PARAMETER (8-0) 
;ADJUST TO ASCII LETTER 
;PUT IT INTO OUTPUT BUFFER 
-BASE ;CHECK CHARACTER SET 



CHECK FOR CHARACTER SET CHANGE 



EP010 



EQU 


$ 


MOV 


A,C 


XRA 


M 


ANI 


60Q 


MOV 


M # C 


NOP 




MOV 


A,C 


ANI 


60Q 


JZ 


EP030 


MVI 


L,CL 


CMP 


M 


JZ 


EP020 


MOV 


M# A 



;R£CALL CURRENT SETTING 
;COMPARE TO PREVIOUS VALUE 
;ANY CHANGE IN CHAR SET? 
;(SAVE NEW SETTING) 
;N0 - RETURN 

;VES - RECALL NEW SETTING 
; RETURN TO BASE SET? 
;YES - SEND SHIFT IN (SI) 
•BASE ;IS IT THE SAME 

; ALTERNATE CHAR SET? 
;¥£S - SEND SHIFT OUT ONLY 
;N0 - SAVE NEW ALTERNATE 



GENERATE ESCAPE SEQUENCE FOR ALTERNATE 
CHARACTER SET SPECIFIER 



MVI B,APARN 

CALL EOUTB 

MOV A,C 

ANI 60Q 

RRC 

RRC 

RRC 

RRC 

ADI 100Q 

CALL AOUTB 

EP020 EQU $ 

MVI A # SO 
J MP AOUTB 

EP030 EQU $ 

MVI A, SI 

JMP AOUTB 



;OUTPUT <ESC> 

;<RIGHT PARENTHESIS> 

; COMPUTE ALTERNATE CHARACTER 
;SET PARAMETER 



;SEND IT 



;SEND SHIFT OUT (SO) 
;AND RETURN 



;SEND SHIFT IN 
;AND RETURN 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F ILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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20E9 
20E9 
20EB 
2GED 
2QFQ 
20F3 
20F5 
20F7 
20FA 
20FB 
20FC 



20FF 
20FF 
2101 
2103 
2106 
2108 
21 OB 
2100 
210E 



2111 

2111 

2114 

2117 

211A 

211C 

211F 

2120 

2123 

2125 

2128 

212B 

2120 

2130 

2133 

2134 

2135 

2137 

21 3A 

213C 

213F 

2142 

2143 

2145 

2146 

2147 

2149 

214B 

214E 



FEC2 

067B 

CA2F13 

F2FF20 

FECI 

06 5B 

CA2F13 

04 

04 

C32F13 



FEC8 

067F 

F23413 

FEC3 

CA3413 

068F 

47 

C32F13 



CD8917 

CAAD21 

3AC0FF 

FE10 

F2F821 

OF 

DA7921 

0626 

CD4223 

CD2F13 

3E66 

C03513 

3AC0FF 

OF 

3C 

F630 

CD3513 

3E6B 

CD3513 

2AC9FF 

7D 

D608 

6F 

7E 

0630 

FE4E 

CA5521 

04 



EXPAND ON FORMAT CONTROL 



EP100 



E&U 
CPI 

mvi 

JZ 

JP 

CPI 
MVI 
JZ 

INR 
INR 
JMP 



$ 

XONLY 

B,LTBRC 

EOUTB 

EP110 

ENDPR 

B,LTBKT 

EOUTB 

B 

B 

EOUTB 



;TRANSMIT ONLY CONTROL? 

;€SET FOR LEFT BRACE> 
;YES - OUTPUT AND EXIT 
;TYPE DEF - OUTPUT NUMBER 
;END PROTECT? 

;(SET FOR LEFT BRACKET - 
;YES - OUTPUT AND EXIT 
;N0 - ALTER CHAR TO RIGHT 

;BRACKET AND OUTPUT IT 



TYPE DEFINITION - OUTPUT NUMERIC TERMINATOR 



EP110 



EGU 

CPI 

MVI 

JP 

CPI 

JZ 

SOT 

MOV 

JMP 



$ 

SKYAT 

B,ADEL 

BOUTB 

FILL 

BOUTB 

ALPHA-6- 

B,A 

EOUTB 



IS CODE VALID? 



FOR INVALID 
CHARACTER 



; (SET DEL CHAR 
;N0 - RETURN DEL 
;FILL CODE? 

;YES - RETURN BEL CHARACTER 
ZERO ;COMPUTE ASCII DIGIT 
;PUT CHARACTER INTO B-RE6 
;OUTPUT THE ESCAPE SEQUENCE 



GET DISPLAY DATA 



GS010 



EQU 

CALL 

JZ 

LDA 

CPI 

JP 

RRC 

JC 

MVI 

CALL 

CALL 

MVI 

CALL 

LDA 

RRC 

INR 

ORI 

CALL 

MVI 

CALL 

LHLD 

MOV 

SUI 

MOV 

MOV 

MVI 

CPI 

JZ 

INR 



$ 

CKSFK 

6S050 

CRROy 

ST END 

GS160 

GS030 

B,APSND 

IITD1 

EOUTB 

A,SALLF 

AOUTB 

CRROW 

A 

ZERO 

AOUTB 

A, SALE K 

AOUTB 

LTLIN 

A„L 

ABLOC 

L,A 

A,M 

B,ZERO 

NX 

GS020 

B 



;SOFT KEY MODE? 
;N0 - DO NORMAL PROCEDURE 
;YES - GET CURSOR ROW 
;BEYOND SOFT KEY DATA? 
;YES - RETURN END OF DISPLAY 
;IN ATTRIBUTE ROM? 
;N0 - OUTPUT DISPLAY DATA 
;YES - START ESCAPE SEQUENCE 
;INIT OUTPUT BUFFER POINTERS 
;SEND <ESC>-<8> 
;<LOWER CASE F> 



;<KEY NUMBER> 



;<LOWER CASE K> 

;6ET ADDRESS OF CURRENT 

;LINE 
;COMPUTE LOCATION OF 

;ATTRIBUTE CODE 
;6ET ATTRIBUTE CODE 
;COMPUTE ATTRIBUTE CODE 

;0 = NORMAL 

;1 « LOCAL ONLY 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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214F 


FE4C 




2151 


CA5521 




2154 


04 




2155 




6 


2155 


CD3413 




2158 


3E61 




215A 


CD3513 




21 5D 


3E10 




215F 


C09516 




2162 


C0461A 




2165 


EB 




2166 


2273FF 


r 
i 
# 

r 
* 
i 
r 



GS020 



CPI 


LX 


J2 


6S020 


INR 


B 


EQU 


$ 


CALL 


BOUTB 


MVI 


A,SALLA 


CALL 


AOUTB 


MV1 


A,FSOUT 


CALL 


STMF2 


CALL 


FLDSR 


XCHG 




SHLD 


GTADR 



ERRORS * PAGE 144 



;2 - TRANSMIT ONLY 



;OUTPUT ATTRIBUTE CODE 

;OUTPUT <L0WER CASE A> 
;SET FLAG TO INDICATE FIRST 

;SOFT KEY DATA GUT 
;L0CATE THE DATA FIELD 



;SAVE FIRST CHAR 

RESTART "GETDSP" 

FIRST SOFT KEY 



ADDRESS 
TO OUTPUT 
CHAR 



: * 



* * 



********* 



* * 



* * 







r 






i 













r 






t 






r 






f 






* 


2169 




r 

G 


2169 


213CFF 




216C 


7E 




216D 


2B 




216E 


BE 




216F 


CA1121 




2172 


2C 




2173 


3C 




2174 


77 




2175 


6F 




2176 


7E 




2177 


B7 




2178 


C9 


# 

r 


2179 




r 
* 

G 


2179 


216FFF 




217C 


7E 




21 7D 


E6EF 




217F 


BE 




2180 


CAAD21 




2183 


77 




2184 


CD4223 




2187 


2A73FF 




218A 


EB 




218B 


3E4F 





6ETDSP - GET A CHARACTER FROM DISPLAY 

ENTRY: CURADR = ADDR OF DISPLAY BYTE 
CURCOL - COLUMN OF NEXT BYTE 

EXIT : NC - CHARACTER FOUND 
A = CHARACTER 
GETADR, CURCOL UPDATED 
C - NO CHARACTER 

M - END OF DISPLAY 
2 - END OF FIELD 
P r NZ - END OF LINE 
B-L DESTROYED 



GTDSP 



LXI 


H^BDPTR 


MOV 


A,M 


DCX 


H 


CMP 


M 


JZ 


GS010 


INR 


L 


I MR 


A 


MOV 


M # A 


MOV 


L,A 


MOV 


A, M 


ORA 


A 


RET 





;GET EXPANSION BUFFER 

;POINT£R 
;SET ADDRESS TO 
; BUFFER EMPTY? 
;YES - GET BYTE 
;N0 - INCREMENT 

;STORE IT 



END POINTER 

FROM DISPLAY 
POINTER AND 



;SET BUFFER ADDRESS 
;GET THE DATA BYTE 
;SET C = FALSE 
;RETURN CHARACTER FOUND 



GET SOFT KEY DATA 



GS030 



EQU 


$ 


LXI 


H,MLGS2 


MOV 


A,M 


ANI 


377Q-FS 


CMP 


M 


J 2 


6S050 


MOV 


W,A 


CALL 


IITD1 


LHLD 


GTADR 


XCHG 




MVI 


A,MXCGL 



;6ET MODE 
;MASK OUT 



FLAGS 
FIRST 



OUTPUT FLAG 



;FIRST DATA? 

;N0 - GET NEXT DATA 

;YES - UPDATE FLAG 

; INITIALIZE CHAR BUFFER PTR S 

;L0CATE END OF LINE 

;PUT START ADDRESS IN D,E 

;SEARCH TO END OF LINE 



FILE 
FILE 
FILE 
F ILE 
FILE 
FILE 
F ILE 
FILE 
FILE 
F ILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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CALL 
MVI 
JM 
SUB 
GSQ40 E6U 
PUSH 
LXI 
CALL 
MVI 
CALL 
POP 
DCR 
MVI 
CM 
JMP 



2180 


C&DA1B 


2190 


3E50 


2192 


FA9621 


2195 


90 


2196 




2196 


F5 


2197 


213513 


219A 


CD7B08 


219D 


3E05 


219F 


C03513 


21A2 


F1 


21A3 


3D 


21A4 


3E20 


21A6 


FC3513 


21A9 


C36921 



21AC 
21AC 

21AD 
21A0 
21B0 
21B1 
21B2 
21B5 
21B5 
21B6 
21B7 
21BA 
21BB 
21BE 
21C0 
21C3 
21C4 
21C5 
21C6 
21C7 
21C9 
21CC 



21CF 
21CF 
21D0 
2103 
2104 
2105 
2106 
2109 
210C 
2100 
21DF 
21E2 
21E5 
21E6 



FOLSO 

A,MXC0L+1 

GSQ40 

B 

$ 

PSW 

H # AOUTB 

B20E1 

A„L 

AOUTB 

PSW 

A 

A,ABLNK 

AOUTB 

GTOSP 



ERRORS = PAGE 145 



;ANY "EOL" IN DATA LINE? 

;<SET FOR NO EOL LENGTK=80 
;N0 - OUTPUT VALUE MAXCOL+1 
;YES - COMPUTE EOL LOCATION 

;SAVE DATA LENGTH 
;SET OUTPUT ROUTINE ADDRESS 
;CONVERT AND STORE IN BUFFER 
;OUTPUT UPPER CASE L 

; RECALL DATA LENGTH 
;DOES OATA EXIST? 

;(SET TO ADD BLANK) 
;N0 - ADD A BLANK TO OUTPUT 
;OUTPUT LENGTH PARAMETER 



77 



2A73FF 
AF 
B5 
CAF521 

7E 

2B 

2273FF 

B7 

F2CF21 

FEOO 

DAFC21 

6E 

67 

70 

2F 

E60F 

CAB521 

C38122 



47 

11C1FF 

1A 

3C 

12 

320780 

3A0478 

B8 

3EF7 

CAE721 

CDE015 

78 

C9 



GET NEXT BYTE FROM DISPLAY 



GS045 EQU 
MOV 



GS050 



6S060 



EQU 

LHLD 

XRA 

OR A 

JZ 

EQU 

MOV 

OCX 

SHLD 

ORA 

JP 

CPI 

JC 

MOV 

MOV 

MOV 

CM A 

AN I 

JZ 

J MP 



M # A 



$ 

GTADR 

A 

L 

6S150 

$ 

A,M 

H 

GTADR 

A 

GS100 

LKLIM 

GS200 

L # M 

H,A 

A„L 

BLKSM 
GS060 
6S320 



;ENTRY TO SKIP TERMINATOR 
;UPDATE W DFLGS W TO CLEAR 
SKIP TERMINATOR FLAG 

;GET CURRENT ADDRESS 

;END OF DISPLAY? 
;YES - TERMINATE 



;DecRE«ENT TO NEXT BYTE 

;UPDATE "SETADR" 

;.IS BYTE ASCII? 

;YES - RETURN CHARACTER 

;IS IT A LINK? 

;N0 - PROCESS DISPLAY CONTRQ 

;YES - SET NEW ADDRESS 

;PUT LSB INTO A-REGISTER 

;IS IT AN END OF LINE LINK? 
;N0 - CONTINUE THRU CHAIN 
;YES - CHECK TERMINATON 



ASCII BYTE FOUND - RETURN CHARACTER FOUND 



GS100 



EQU 

MOV 

LXI 

LDAX 

INR 

STAX 

STA 

LDA 

CMP 

MVI 

JZ 

CALL 

MOV 

RET 



$ 

B^A 

D # CRCOL 

D 

A 

D 

ICRCL 

BKTRM 

B 

A,377Q-SPTRM 

GS110 



SAVE THE CHARACTER 



^INCREMENT CURSOR 
; POSITION 



COLUMN 



;UPDATE DISPLAY CURSOR 
;6ET BLOCK TERMINATOR CHAR 
;IS CHAR = BLOCK TERMINATOR? 

;CSET CLEAR FLAG) 
;YES - RETURN TERMINATION 



CRDFL ;N0 - CLEAR SKIP FLAG 
A # B ; RECALL DISPLAY CHARACTER 
;RETURN <NC FROM "C'LROFL") 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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20 
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20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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20 
20 
20 
20 
20 
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ERRORS - PAGE 146 



21 E7 
21E7 
21EA 
21EB 
21EC 
21EF 
21F0 
21F2 



216EFF 

A6 

BE 

C2AC21 

1A 

FE50 

CC0D1D 



; BLOCK TERMINATOR - CHECK FOR EN© OF LINE, * 
; RETURN END OF DISPLAY * 

GS110 Eau $ 

; CLEAR SKIP TERMINATOR FLAG 



LXI 

ANA 

CMP 

JNZ 

LDAX 

CPI 

CZ 



H # DFLGS 

M 

M 

GS045 

D 

MXCOL+1 

CRLF 



;WAS SKIP FLAG SET? 
;YES - IGNORE TERMINATOR 
;N0 - TERMINATE TRANSMISSION 
;WAS RS IN LAST COLUMN? 
;YES - DO CR,LF 



RETURN END OF DISPLAY 



21F5 




21F5 


CD 


21F8 




21F8 


AF 


21F9 


3D 


21FA 


37 


21FB 


C9 



GS1 



GS1 



50 



60 



EGU 
CALL 



$ 

FDSRX 



EQU $ 
XRA A 
DCR A 
STC 
RET 



;SET "LSTCOL" TO MAXCOL+1 TO 
FORCE LINE RE-SCAN 

;SET A TO -1 

;SET C-FLA6 TRUE 
;RETURN 



NON-ASCII BYTE PROCESSING 



21FC 


GS200 E8U 


S 




21FC 


FECE 


CPI 


EOP 


# 


21FE 


CAF521 


JZ 


GS150 


> 


2201 


FEC4 


CPI 


SPFLG 


# 


2203 


CA4922 


JZ 


6S230 


# 


2206 


FECC 


CPI 


EOL 


# 


2208 


CA5F22 


JZ 


GS300 


# 


2 2 OB 


FEC3 


CPI 


FILL 


# 


220D 


CAB521 


JZ 


GS060 


jr. 


2210 


4F 


MOV 


C,A 


# 


2211 


CD7317 


CALL 


CKFMS 





2214 


C22422 


JNZ 


GS210 


m 


2217 


3A64FF 


LDA 


IFL62 


0- 


221A 


E620 


ANI 


XS2BF 


* 


221C 


79 


MOV 


A,C 




221D 


CO 


RNZ 







221E 


CD9520 


CALL 


EPAND 


* 


2221 


C36921 


JMP 


GTDSP 






2 224 




GS210 


EQU 


$ 


2224 


79 




MOV 


A,C 


2225 


FECO 




CPI 


ST PR 


2227 


C2B521 




JNZ 


GS060 


222A 


EB 




XCK6 




222B 


2AC0FF 




LHLD 


CRROW 


222E 


3AA3FF 




LDA 


TLINO 


2231 


85 




ADD 


L 


2232 


6F 




MOV 


L,A 


2233 


2220FF 




SHLD 


ED ROW 


2236 




6S22Q 


EQU 


$ 



END OF DISPLAY? 

YES - RETURN END OF DISPLAY 

NON-DI SPLAYING TERMINATOR? 

YES - RETURN END OF DISPLAY 

END OF LINE? 

YES - RETURN END OF LINE 

FILL BYTE? 

YES - GET NEXT BYTE 

NO - SAVE THE BYTE 

FORMAT/SOFT KEY DEFINE MODE 

YES - LOOK FOR START PROTEC 

NO - GET I/O FLAGS 2 

DISPLAY TO I/O BUFFER? 

; (RECALL DATA BYTE) 
YES - RETURN UNEXPANDED BYT 
NO - EXPAND DISPLAY CONTROL 
RETURN 1ST EXPANDED CHAR 



FORMAT MODE - IGNORE ALL DISPLAY CONTROL EXCEPT 
FOR START PROTECT 



; RE CALL THE DATA BYTE 
;IS IT START PROTECT? 
;N0 - IGNORE THE BYTE 
;YES - PUT GETADR INTO D # E 
;SAVE ENDING ROW AND 
;C0LUMN+1 FOR FIELD 



;SAVE ABSOLUTE ROW NUMBER 



FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

I ILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 



20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 
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2236 


CDC8QF 






CALL 


GM0D1 


2239 


CA4622 






JZ 


GS225 


223C 


CD3B1A 






CALL 


F0SR1 


223F 


CAF521 






JZ 


GS150 


2242 


EB 






XCHG 




2243 


2273FF 






SHLO 


GTADR 


2246 




GS225 


EQU 


$ 


2246 


AF 






XRA 


A 


2247 


37 






STC 




2248 


C9 






RET 





2249 
2249 
224C 
224E 
2251 
2252 
2255 
2256 
2257 
225A 
225B 
225C 



; ************* 

; NON-DISPLAYI 
; AUTO CLEAR 
- ************* 



GS230 



3AFAFF 

E602 

3AC1FF 

4F 

2A73FF 

23 

EB 

C4B518 

EB 

2B 

C3F521 



EQU 


S 


LDA 


KJMP2 


AMI 


CRTRM 


LDA 


CRCOL 


MOV 


C,A 


LHLD 


6TA0R 


INX 


H 


XCHG 




CNZ 


CRDL2 


XCHG 




OCX 


H 


JNP 


6S150 



225F 




6S300 


EQU 


$ 


225F 


CD7317 






CALL 


CKFMS 


2262 


CA7E22 






JZ 


GS310 


2265 


FA7E22 






JM 


6S310 


2268 


11 C IFF 






LXI 


D, CRCOL 


226B 


1A 






LDAX 


D 


226C 


FE50 






CPI 


MXCOL-H 


226E 


CA7E22 






JZ 


6S310 


2271 


3C 






IN R 


A 


2272 


12 






STAX 


D 


2273 


320780 






STA 


ICRCL 


2276 


23 






INX 


H 


2277 


2273FF 






SHLD 


GTADR 


227A 


3E20 






MVI 


A # A6LNK 


227C 


B7 






ORA 


A 


227D 


C9 






RET 




227E 




GS310 


EQU 


$ 


227E 


CD6617 


• 
* 




CALL 


CAIN1 






* 

m 

r 


EOL 


LINK 


FOUND - 


2281 




GS320 


EQU 


$ 


2281 


7E 






MOV 


A„M 


2282 


2b 






DCX 


H 


2283 


6E 






MOV 


L,M 


2284 


67 






MOV 


H r A 


2285 


2273FF 






SHLD 


GTADR 



ERRORS = PAGE 147 



;PAGE MODE/DISPLAY ~> BUFFER 
;N0 * RETURN END OF FIELD 
;ANY MORE FIELDS? 
;N0 - EXIT END OF DISPLAY 
;YES - STORE NEW GETADR 



;RETURN END OF FIELD 
;CC = TRUE, A = 0) 



********************************* 

NG TERMINATOR FOUND - CHECK FOR * 

OPTION * 

********************************* 



;6ET JUMPERS SET 2 
;CLEAR TERMINATOR? 

;(SET CURRENT COLUMN) 

;(SET LOCATION OF 

^TERMINATOR) 
;(PUT ADDRESS INTO D,£> 
;YES - CLEAR THE BYTE 

;SET LAST CHARACTER ADDRESS 
;RETURN END OF DISPLAY 



END OF LINE - PAD OUT LINE IF FORMAT MODE 



; FORMAT /SOFT KEY DEFINE MODE 

;NQ - ADVANCE TO NEXT LINE 

;SOFT KEY - SKIP TO NEXT LIN 

; FORMAT - BLANK FILL 

;6ET CURRENT CURSOR COLUMN 

;LINE COMPLETED? 

;YES - ADVANCE TO NEXT LINE 

;N© - INCREMENT COLUMN 

; NUMBER 
;UPDATE DISPLAY CURSOR 
;RESTORE "GETADR" TO LOCATIO 

;0F "EOL* 
; RETURN BLANK 
;CLEAR C-FLAG 
; RETURN 



;GET ADDR OF NEXT LINE LINK 



- DETERMINE TERMINATION TYPE 



;GET POINTER TO NEXT LINE 



;PUT IT INTO "•GETADR' 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


F ILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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ERRORS = PAGE 148 



2288 


AF 


2289 


3276FF 


228C 


CD7A1E 


228F 


CD 731 7 


2292 


CACC22 


2295 


FAC622 


2298 


2AC0FF 


229B 


3AA3FF 


229E 


85 


229F 


6F 


22A0 


222QFF 


22A3 


CBC70A 


22A6 


CB1D0F 


22A9 


2A73FF 


22AC 


70 


22AD 


B7 


22AE 


CAF821 

r 


22B1 


r 

EB 


22B2 


CD061B 


22B5 


C23622 


22B8 


EB 


22B9 


3A64FF 


22BC 


E620 


22BE 


CAB521 


22C1 


2273FF 


22C4 


37 


22C5 


C9 



22C6 




22C6 


CDC70A 


22C9 


CB461A 


22CC 




22CC 


AF 


22C0 


3C 


22CE 


37 


22CF 


C9 



XRA A 
STA EHOUT 
CALL CRET1 
CALL CKFMS 
JZ 6S360 
JM GS350 
LHLD CRROW 
LDA TLINO 
ADD L 
MOV L # A 
SHLD ED ROW 
CALL LFEED 
CALL DSLN1 
LHLD GTADR 
MOV A,L 
ORA A 
JZ GS160 



;PUT CURSOR 
;CLEAR LAST 



IN COLUMN ZERO 
ENHANCE OUT FLAG 



;FORMAT/SOFT KEY DEFINE MODE 
;NEITHER - SEND END OF LINE 
;SOFT KEY - FIND NEXT FIELD 
; FORMAT - SAVE ENDING ROW AN 
;C0LUMN+1 FOR FIELD 

;SAVE ABSOLUTE ROW NUMBER 

;YES - DO LINE FEED 

;SET DISPLAY CURSOR ROW 

;RECALL POINTER TO NEXT LINE 

;GET LSB VALUE 

;END OF DISPLAY (LSB = 0)? 

;YES - RETURN END OF DISPLAY 



FORMAT EOL - CHECK FOR CONTINUATION FIELD 



XCH6 

CALL 

JNZ 

XCHG 

LDA 

ANI 

JZ 

SHLD 

STC 

RET 



FDSR2 
GS220 

IFLG2 
XS2BF 
6S060 
GTADR 



PUT CURRENT ADDR IN D,E 
NEXT LINE CONTINUES FIELD? 
NO - RETURN END OF FIELD 
YES - CONTINUE PROCESSING 
GET I/O FLAGS 2 
DISPLAY TO I/O BUFFER? 
YES - CONTINUE FIELD 
NO - STORE NEW "GETADR** 
RETURN END OF LINE 
RETURN NZ, C 



*********************************************** 

END OF LINE FOR NON-FORMAT MODE - RETURN END * 

OF LINE CODE (C, P, NZ) * 

*********************************************** 



6S350 



6S360 



E6»U 


$ 


CALL 


LFEED 


CALL 


FLDSR 


EGU 


$ 


XRA 


A 


INR 


A 


STC 




RET 





;SOFT KEY END OF LINE 
;LOCATE THE ATTRIBUTE OF THE 

;NEXT DEFINITION 
;NON-FORMAT/SOFT KEY EOL 
;SET NZ^P 



;SET C-TRUE 
; RETURN END 



OF LINE 



; ************************************** 

; 1NITDG - INITIALIZE FOR DISPLAY GET * 
;************************************** 



r 
r 



22DO 
22D0 
22D3 



EXIT r Z - CHARACTER FOUND 

GETADR = ADDRESS OF FIRST CHARACTER 
NZ - NO CHARACTER FOUND 

GETADR UNCHANGED 
ALL REGISTERS DESTROYED 

DISPLAY GET ROUTINE IS SET TO START 
AT CURRENT CURSOR LOCATION 



IITDO EQU $ ;ENTRY FOR DISPLAY TO I/O 

CD7817 CALL CKFMT ; FORMAT MODE ENABLED? 

C2D922 JNZ IITDG ;YES - DON»T MOVE CURSOR 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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20 
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20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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22D6 
2 2D 9 
22D9 

22DC 
22DE 
220F 
22E0 
22E1 
22E3 
22E4 
22E6 



32C1FF 

CD6B16 

E6FB 

BE 

77 

CO 

2E64 

7E 

E63F 

77 



IITOG 



STA 
EQU 
CALL 

ANI 
CMP 
MOV 
RNZ 

mi 

MOV 
AMI 
MOV 



CRCOL 

$ 

STDFQ 



ERRORS = PAGE 149 



;N0 - BEGIN AT LINE START 



;SET DATA COMM INPUT FLAG TO 
ENABLE TRANSMIT ONLY DATA 
377Q*NSEND ;€LEAR NO DATA FLAG 
M ;WAS IT SET BEFORE? 

M,A ;(SET NEW VALUE) 

;YES - RETURN NO DATA 
L, IFL62-BASE ;CLEAR DISPLAY BOUNDARY 
A„M ;FLA6S 

377Q-EDDSP-DPBTM 
M,A 



LOCATE FIRST CHARACTER 



22E7 


CD8917 




CALL 


CKSFK 


22EA 


CAFB22 




JZ 


16055 


22ED 


21C0FF 




LXI 


H,CRROW 


22FO 


3E10 




MVI 


A,STEND 


22F2 


BE 




CMP 


M 


22F3 


F8 




RM 




22F4 


3EFE 




MVI 


A # 376Q 


22F6 


A6 




ANA 


M 


22F7 


77 




MOV 


M # A 


22F8 


AF 




XRA 


A 


22F9 


23 




INX 


H 


22FA 


77 


# 


MOV 


M,A 


22FB 




IG055 


EQU 


S 


22FB 


3E01 




MVI 


A,INTRM 


22FD 


326DFF 




STA 


TMFCT 


2300 


CD2E07 




CALL 


RADR4 


2303 


F8 




RM 




2304 


CA1023 




JZ 


IG060 


2307 


CD7817 




CALL 


CKFMT 


230A 


CA2B23 




JZ 


IS 100 


230D 


C31423 




JMP 


IG070 


2310 




IG06Q 


EQU 


$ 


2310 


21C2FF 




LXI 


H,POFLD 


2313 


70 




MOV 


M, B 


2314 




I GO 70 


EQU 


$ 


2314 


CDDAOF 




CALL 


CPROT 


2317 


C22523 




JNZ 


IG090 


231A 


3EFF 




MVI 


A,SPXFR 


231C 


326DFF 




STA 


TMFCT 


231F 


CD3B1A 




CALL 


FDSR1 


2322 


CA590B 




JZ 


NEXIT 


2325 




IG090 


EQU 


$ 


2325 


21FF00 




LXI 


H,3776 


2328 


2220FF 


# 


SHLD 


EDROW 






; CHARACTER FOUND 


232B 




IG100 


EQU 


$ 


232B 


1A 




LDAX 


D 


232C 


FEC4 




CPI 


SPFLG 



;SOFT KEY MODE? 

;N0 - LOCATE THE FIRST CHAR 

;YES - CHECK CURSOR POSITION 

;CURSOR BELOW DATA AREA? 
;YES - RETURN NO CHARACTER 
;N0 - SET CURSOR ROW TO 
; ATTRIBUTE ROW 

;SET CURSOR COLUMN TO 
;BEGINNIN6 OF ROW 

LOCATE ATTRIBUTE 



;SET TO IGNORE NON-DISPLAYI N 

;TERMINATORS 
;DISPLAY PRESENT? 
;N0 - RETURN NO CHARACTER 
;CHARACTER - CHECK PROTECTED 
;EOL - FORMAT MODE? 
;N0 - EXIT WITH EOL 
:YES - CHECK PROTECTED 



;SET PROTECT STATUS 



; CURSOR IN PROTECTED FIELD? 
;N0 - RETURN CHARACTER FOUND 
;SET TERMINATOR FUNCTION TO 

;TERMINATE TRANSFER 
;ANY MORE FIELDS? 
;N0 - RETURN NO CHARACTER 

INITIALIZE PREVIOUS FIELD*S 
;ROW AND COLUMN TO ZERO 



- RETURN CHARACTER FOUND 



;GET FIRST CHARACTER 
;N0N-DISPLAYIN6 TERMINATOR? 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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20 
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20 
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20 
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20 
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20 
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20 
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20 
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20 
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20 
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20 
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20 
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20 
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CZ 

XCH6 
SHLO 
LDA 
STA 
LDA 
STA 
CMP 
IITD1 EQU 
LXI 
SHLD 
RET 



ERRORS = PAGE 150 



232E 


CCBBOB 


2331 


E8 


2332 


2273FF 


2335 


3A2A70 


2338 


3275FF 


233B 


3AC6FF 


233E 


3276FF 


2341 


BF 


2342 




2342 


2179FF 


2345 


223BFF 


2348 


C9 



234F 
234F 
2352 
2353 
2354 



2355 
2355 
2358 



235B 
235B 
235E 



2361 
2361 
2364 
2367 
2369 
236C 
236F 
2372 



NTCHR 

GTADR 

ATOUT 

CLTST 

LTDCD 

EHOUT 

A 

$ 

H,BDBFL"t*256+BDBFL 

BDEND 

;RETURN 



;YES - GET THE NEXT CHARACTE 
;SAVE ADDRESS OF BYTE 

;SET CURRENT ALTERNATE CHAR 
;SET TO DEFAULT VALUE 

;SET LAST ENHANCEMENT OUT 
;WOR0 

;SET Z-FLA6 TRUE 

^INITIALIZE CHARACTER BUFFER 
1 ; POINTERS 



2349 




2349 


2166FE 


234C 


B6 


234D 


77 


234 E 


C9 



2166FE 
A6 
77 
C9 



218124 
C3F304 



010004 
C32616 



01FFFB 

CDE50F 

06 7 C 

CD 021 7 

210817 

CD7523 

C39211 



************************************* 



SET FLAG BIT 



BVFL2 



SBFL2 



EQU 


$ 


LXI 


H,BYFL2 


ORA 


M 


KOV 


M,A 


RET 





;************************************* 

; CLEAR FLAG BIT BYFL2 
;************************************* 

CBFL2 EQU $ 

H,BYFL2 

M 

M # A 



LXI 

ANA 

mov 

RET 



INIT. PARAMETER ESC SEQUENCE 



PMSEQ 



EQU 
LXI 
JMP ECAPA 



H^PMTAB 



********************* 
STAT2 - SEND SECOND A 
********************* 
TT2 EQU $ 

LXI B # STAT2 
JMP SLXFO 
***************** 

2G0 - TRANSMIT SE 
***************** 



**** 

STA 
**** 

A2G0 



**************************** 

RY TERMINAL STATUS REQUEST * 
**************************** 

;SET SECONDARY STATUS PENDIN 

;FLAG 
************************* 

CONDARY TERMINAL STATUS * 
************************* 



EQU 

LXI 

CALL 

MVI 

CALL 

LXI 

CALL 

JMP 



B,-1-STAT2 
CBLXF 
B^VTBAR 
EC OUT 
H,XUTDC 



SA2G1 
STERM 



;CLEAR STATUS 2 PENDING FLAG 
;SEND <ESC>-<VERTICAL BAR> 

;SET OUTPUT ROUTINE ADDRESS 
;OUTPUT SECONDARY STATUS BIT 
iSEND TERMINATOR AND RETURN 



**************************************** 

STA2G1 - OUTPUT SECONDARY STATUS BITS * 
**************************************** 

ENTRY: H,L = ADDRESS OF OUTPUT ROUTINE 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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ERRORS = PAGE 151 



2375 
2375 
2378 



2378 
237A 
237D 
237E 



2381 

2384 



2387 
238A 
238B 
238E 
238 F 
2392 
2393 
2396 
2397 



239A 
239D 
23A0 
23A1 
23A3 



23AF 
23B2 
23B4 



22CEFF 



3ED0 
218EFF 
96 
CDD10B 



3AFDFF 
CDD30B 



2AF9FF 

7C 

C&D30B 

7C 

CDC FOB 

7D 

CDD3QB 

70 

CDCFOB 



3A6AFF 

21F4FF 

A6 

E604 

C3B30B 



23A6 


OAOA 


23A8 


5B9E 


23AA 


ODOD 


23AC 


649E 


23AE 


1313 


2380 


0385 



207 F 
EE8C 



EXIT ; ALL REGISTER DESTROYED 
CNTFAD DESTROYED 



SA2G1 



SA2G2 



EQU $ 
SHLD CTFAD 

EQU $ 



;SET OUTPUT ROUTINE ADDRESS 



SEND NON-DISPLAY RAH SIZE CtO 

MVI A,320Q ;BSPCE+1/256 

LXI H,BFBGN*1 ^COMPUTE NON-DISPLAY RAft 

SUB M ;SIZE 

CALL PR0T2 ;SEND NON-DISPLAY RAM SIZE 



OUTPUT TERMINAL TYPE 



LDA TMTYP 
CALL PROUT 



;GET THE TERMINAL TYPE NUHBE 
;SEND ONLY LOWER FOUR BITS 



OUTPUT REMAINING KYBD INTFACE STRAPS 



LKLD KJMP3 
MOV A^H 
CALL PROUT 
MOV A # H 
CALL PR0T4 
MOV A,L 
CALL PROUT 
MOV A # L 
CALL PR0T4 



;GET JUMPERS J-Z 

;SEND STRAPS J-K-L-M 

;SEND STRAPS N-P-Q-R 

;SEND STRAPS S-T-U-V 

;SEND STRAPS W-X-Y-Z 



OUTPUT MEMORY LOCK STATUS 



LDA 
LXI 
ANA 
ANI 
J MP 



MKFL6 

H # MFLG1 

M 

MMLOK 

PROUT 



******************** 

SOFT KEY DATA DONE 
******************** 

STB3 EQU $-3 



DB 


12Q„12Q 


DW 


DS350+B15 


DB 


15Q,15Q 


DW 


DS360+B15 


DB 


23Q,23Q 


DW 


ECAP1+B15 



******************** 

SOFT KEY MODE ENABL 
******************** 
STBO EQU $-3 

DB 40Q # 177Q 
DW SKYDS+B15 
******************** 

NORMAL CHARACTER SE 
******************** 



;GET MEMORY LOCK FLAG 
^COMBINE WITH MODE FLAG 
^EXTRACT MEMORY LOCK STATE 

;OUTPUT MEMORY LOCK STATE 
AND RETURN 

**************************** 

TABLE - IGNORE DC3,CR,ft LF * 
**************************** 

;LINE FEED 

;CHECK FOR IGNORE 
; RETURN 

; CHECK FOR IGNORE 
;DC3 

; IGNORE IT 
**************** 

ED RANGE TABLE * 
**************** 

;DISPLAYABLE CHARACTER 

; DISPLAY IN PROPER DISPLAY 
************** 
T ATTRIBUTES * 
************** 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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ERRORS - Q PAGE 152 



23B3 




23B6 


207F 


23B8 


57A0 


c St$ A 


070 F 


23BC 


C623 


23BE 


1B1B 


23C0 


D584 


23C2 


007 F 


23C4 


8684 



23C6 
23C6 
23C8 
23C8 
23 CA 
23CC 
23CE 
23D0 
23D2 
23D4 
2306 



23D5 
23D8 
23DA 
23DC 
230E 
23E0 
23E2 

23E4 
23E6 
23E8 
23EA 



1470 

721C 
041 C 
C70A 
6E17 
6E17 
6A1E 
OCOD 
1FO0 



293 E 

0985 
4C4F 
0985 
5358 
0985 

6C60 
0985 
797B 
0985 



23E9 




23EC 


2626 


23EE 


55A3 


23F0 


2929 


23F2 


B08C 


23F4 


3135 


23F6 


1024 


23F8 


3638 


23FA 


2A8F 


23FC 


3C3E 


23FE 


1A24 


2400 


406D 


2402 


2024 



RABLE 



EQU 

OB 

OW 

OB 

DU 

DB 

DM 

OB 
OW 



$-3 

40Q,177Q ;ALPHANUMERICS 
M>CHR*B15 ;DISPLAYABLE CHARACTERS 
7Q,17Q ;BELL,BS,HT,LF,VT,FF,CR,SO,S 

RB010 ;USE FUNCTION TABLE 

338,330 ;ESCAPE 
ECAPE+B15 ;USE <ESC> RAN6E TABLE 



00,1778 
CKCTL+B15 



;ALL OTHER COOES 

;CBECIC FOR BLOCK XFR CHARS 



<BELL> THROUGH <SHIFT IN> 



RB010 
RB020 



EQU $ 

OW ZBELL ;BELL - SOUND KEYBOARD BELL 

EQU $ ;<BS> THROUGH <SHIFT IN> 

OW BKSPC ;BS - BACKSPACE CURSOR 

OW HTAB HORIZONTAL TAB 

OW LFEEO ;LINE FEED 

OW NFNCT ;VT - NO FUNCTION 

OW NFNCT ;FF - NO FUNCTION 

OW CRRET ;CARRIAGE RETURN 

OW SFTOT ; SHI FT OUT 

OW SFTIN ;SHIFT IN 



;****** 



**************** 

ESCAPE CHARACTER ATTR 
**************** 



_. W ^K *t ** TK . jBF 

SSCTB 



; NORMA 
ECTAB 



EQU $-3 

OB 510, 76Q 

OW ECEND+B15 

OB 1140,1178 

OW ECEN0+B15 

DB 1230,1300 

OW ECEND+B15 

*** LOWER 

DB 1540,1558 

OW ECEN0+B15 

OB 1710,1738 

OW ECEN0+B15 
**************** 

L ESCAPE CHARACT 

**************** 

EQU $-3 

DB 468,468 ; 

OW PMSEQ+B15 



********************** 

IBUTES FOR SOFT KEYS * 
********************** 

;<)> TO (>J 

;ABORT ESCAPE 
;<L> TO <0> 

; ABORT ESCAPE 
;<S> TO <W> 

;ABORT ESCAPE 
CASE CHARACTERS 
;<L> TO <W> 

;ABORT ESCAPE 
;<Y> TO < > 

; ABORT ESCAPE 
*************** 

ER ATTRIBUTES * 
*************** 

<8> - AMPERSAND 
;PARAMETERIZEO 



SEQUENCE 

SEQUENCE 

SEQUENCE 
*** 

SEQUENCE 

SEQUENCE 



SEQUENCE 



DB 510,518 ;) - SPECIFY ALT CHAR SET 

OW SHRST+B15 

DB 610,658 ;<1> TO <5> 

OW Ell ■ 

OB 660,708 ;<6> TO <8> 

OW TPSET+B15 ; DEFINE FIELD TYPE 

OB 740,760 ;(<) TO <» 

DW EI1A ;USE INDEX TABLE 

DB 1000,1550 ;<S> TO <LOWER CASE M> 

OW EI 2 ; USE INDEX TABLE 

*** LOWER CASE RANGE *** 
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FILE 
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DB 
DW 

db 

DW 



2404 
2406 


787B 
7C24 


2408 
240A 


7E7E 
5BA3 


240C 
240E 


007 F 
0985 



I70e,i73e 

EI3 

176Q,176Q 
STT2+B15 



ERRORS = PAGE 153 



;<X> TO <LEFT BRACE> 
;USE INDEX TABLE 

;< > CTILDE) 
;TERMINAL STATUS 2 



DB 0Q,177Q ;ALL OTHER CODES 

DW ECEND+B15 ;ABORT ESCAPE SEQUENCE 

************* *********************** 







; INDEX TABLES FOR 


ESCAPE SEQUENCES * 






************************************* 


2410 




EI1 EQU 


$ 




2410 


3D15 


DW 


HBSET 


;1 - HORIZONTAL TAB SET 


2412 


4315 


DW 


MBCLR 


;2 - HORIZONTAL TAB CLEAR 


2414 


7010 


DW 


CRALL 


;3 - CLEAR ALL TABS 


2416 


7316 


DW 


STLFT 


;4 - SET LEFT MARGIN 


2418 


8516 


DW 


ST RHT 


;5 - SET RIGHT MARGIN 


241A 




EI1A EQU 


$ 




241A 


1B15 


DW 


FNCT1 


;< - SET FOREIGN MODE 1 


241C 


0905 


DW 


EC END 


;= - INVALID, ABORT SEQUENCE 


241E 


2015 


DW 


FNCT2 


;> - SET FOREIGN MODE 2 


2420 




EI2 EQU 


$ 




2420 


2112 


DW 


DLAYO 


;8 - PAUSE FOR 1 SECOND 


2422 


531 D 


DW 


CURPU 


;A - CURSOR POINTER UP 


2424 


251D 


DW 


CURPD 


; CURSOR POINTER DOWN 


2426 


131D 


DW 


CURPR 


;CURSOR POINTER RIGHT 


2428 


181D 


DW 


CURPL 


;D - CURSOR LEFT 


242A 


F508 


DW 


CLEAR 


;E - FULL TERMINAL RESET 


242C 


7C10 


DW 


CRPHD 


;F - HOME DOWN 


242E 


771 E 


DW 


CRPRT 


;G - CURSOR RETURN 


2430 


3B17 


DW 


XOHME 


;H - HOME TO TRANSMIT-ONLY 


2432 


041 C 


DW 


HTAB 


; CURSOR POINTER TAB 


2434 


0410 


DW 


CEARS 


;CLEAR DISPLAY 


2436 


BE18 


DW 


CEARL 


;CLEAR LINE 


2438 


580A 


DW 


LMINS 


;LINE INSERT 


243A 


OFOA 


DW 


LNDEL 


;M - LINE DELETE 


243C 


681 C 


DW 


IRPON 


;N - INSERT W/WRAP AROUND ON 


243E 


8E17 


DW 


DLWRP 


;0 - DELETE CHAR W/WRAPAROUN 


2440 


9617 


DW 


CRDEL 


;P - DELETE CHARACTER 


2442 


571 C 


DW 


ICHON 


;Q - INSERT CHARACTER ON 


2444 


5E1C 


DW 


IHOFF 


;R - INSERT CHARACTER OFF 


2446 


5B0C 


DW 


RLLUP 


;S - ROLL UP 


2448 


F90B 


DW 


RLLDN 


;ROLL DOWN 


244A 


890B 


DW 


NXTPG 


;NEXT PAGE 


244C 


DDOB 


DW 


PEVPG 


;PREVIO«S PAGE 


244E 


9A19 


DW 


FRMON 


; FORMAT MODE ON 


2450 


7714 


DW 


FRMOF 


;X - FORMAT MODE OFF 


2452 


F013 


DW 


FISQN 


;Y - DISPLAY FUNCTIONS ON 


2454 


0905 


DW 


EC END 


; INVALID 


2456 


FA15 


DW 


PREND 


;END PROTECT 


2458 


0905 


DW 


EC END 


;INVALID 


245A 


F015 


DW 


PSTRT 


;START PROTECT 


245C 


270D 


DW 


SATUS 


; - SEND TERMINAL STATUS 


245E 


9B16 


DW 

r 
r 
r 


STTRM 


;* - STORE NON-DISPLAYING 
TERMINATOR CODE 
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LOWER 



ERRORS = PAGE 154 



2460 


4611 


2462 


4E11 


2464 


0915 


2466 


E615 


2468 


2316 


246A 


4B15 


246C 


B511 


246E 


OOOD 


2470 


A919 


2472 


0905 


2474 


D90C 


2476 


C10C 


2478 


2306 


247A 


180B 


247C 




247C 


0E12 


247E 


E513 


2480 


B10D 


2482 


F515 



EI3 



R CASE RANGE 


FOR "t 


! « 


IHARACTER ESC SEQUENCES 


DW 


RCRSN 


; a - 


SCREEN RELATIVE SENSE 


DW 


CRSEN 


;A - 


ABSOLUTE CURSOR SENSE 


DW 


KBEN1 


;B - 


ENABLE KEYBOARD 


DW 


KLOKO 


;c 


- 


DISABLE (LOCK) KEYBOARD 


DW 


ETREN 


;D 


- 


SEND DISPLAY TO CPU 


DW 


IBNGO 


,E 


- 


FAST BINARY READ 


DW 


DSMDM 


;f 


^ 


DISCONNECT MODEM 


DW 


STRST 


;G 


- 


SOFT RESET 


DW 


CURPH 


;H 


- 


HOME TO UNPROTECTED 


DW 


EC END 


;i 


- 


BACK TAB 


DW 


SK YON 


;J 


- 


TURN ON SOFT KEY MENU 


DW 


SKYOF 


;k 


- 


RESTORE NORMAL DISPLAY 


DW 


MLKON 


;l 


- 


MEMORY LOCK ON 


DW 


MKOFF 


;tf 


— 


MEMORY LOCK OFF 


EQU 


$ 


; LOWER CASE <X> TO < > 


DW 


DTEST 


;x 


- 


DATA COMM SELF-TEST 


DW 


MMDON 


;y 


- 


MONITOR MODE ON 


DW 


TEST 


;z 


WW 


SELF-TEST 


DW 


SRXMO 


» 


- 


START TRANSMIT-ONLY 



^ *********************************************** 
; PRMTAB - TABLE FOR SEQUENCES WITH PARAMETERS * 
; *********************************************** 



2481 




PMTAB 


EQU 


f-3 






2484 


6167 






DB 


141Q # 147Q 


;LOWER CASE 


<A> TO <G> 


2486 


9824 






DW 


PM010 


;USE INDEX 


TABLE 


2488 


6B6B 


r 




DB 


153Q„153Q 


;LOWER CASE 


<K> 


248A 


20F0 






DW 


ZTLKY+B15 


;60 TO SET 


KEYS ROUTINE 


248C 


707 


r 




DB 


160Q # 160Q 


;LOWER CASE 


<P> 


248E 


6395 






DW 


ICTG0+B15 


;G0 TO I/O 


CONTROL ROUTINE 


2490 


7373 


i 




DB 


163Q # 163Q 


; LOWER CASE 


<S> 


2492 


1DF0 






DW 


ZTJPR*015 


;G0 TO SET 


JUMPERS ROUTINE 


2494 


007 F 






DB 


0Q,177G 


;ALL OTHER CODES 


2496 


0985 






DW 


ECEND+B15 


; ABORT ESCAPE SEQUENCE 


2498 




i 

PM010 


EQU 


S 


;LOWER CASE <A> TO <F> 


2498 


AF10 






DW 


CRPOS 


;A - CURSOR POSITIONING 


249A 


0905 






DW 


ECEND 


;b 




249C 


0905 






DW 


EC END 


;c 




249E 


81 1E 






DW 


DSPEN 


;D - DISPLAY 


ENHANCEMENT 


24A0 


0905 






DW 


ECEND 


;E - INVALID, 


, ABORT SEQUENCE 


24A2 


721D 






DW 


DSFKY 


;F - DEFINE 


FUNCTION KEYS 


24A4 


A816 






DW 


SDCDE 


;6 - SEND ATTENTION/FUNCTION 






r 








CODE 








r 



******************************************** 






r 


DENTAB - 


DISPLAY ENHANCEMENT ESCAPE TABLE * 






r 


******************************************** 


24A3 




DNTAB 


EQU 


$-3 






24A6 


404 F 






DB 


100Q,117Q 


;<B>-<0> 




24 A8 


8B9E 






DW 


DSPLC+B15 


;TURN ON ENHANCEMENT 






# 


***************************************** 






* 


CHRSTB - 


ALTERNATE ( 


:haracter SET 


TABLE * 






- 


***************************************** 
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24A7 
24AA 
24AC 

24AE 
24B0 



24 EB 
24EE 
24F0 



4043 
B68C 

007 F 
0985 



24AF 




24B2 


2B2B 


24B4 


FB91 


24B6 


2020 


24B8 


0092 


24BA 


3039 


24BC 


0791 


24BE 


4343 


24C0 


C490 


24C2 


5252 


24C4 


0A90 


24C6 


5959 


24C8 


CF90 


24CA 


6363 


24CC 


C490 


24CE 


7272 


2400 


0A90 


24D2 


7979 


24D4 


CF90 


2406 


2020 


24D8 


0385 


240A 


007 F 


24DC 


0985 



24 OB 




24DE 


00 OD 


24E0 


71 8 F 


24E2 


1B1B 


24E4 


1F94 


24E6 


5A5A 


24E8 


F093 


24EA 


007 F 


24EC 


EE8C 



CRSTB 



EQU 

DB 
OW 



$—3 

100Q,103Q 

SHST1+B15 



;<a> - <c> 

;SET ALTERNATE 



CHAR SET 



OB 0Q,1770 
DW ECEN0+B15 

; ******************** 

; CRPTAB - CURSOR POS 
- ******************** 



CPTAB 



EOU 

OB 
OW 
OB 
OW 
OB 
OW 

OB 
OW 

OB 

OW 

OB 

OW 

OB 
OW 

OB 
DW 

OB 
OW 



$""3 

53Q,53Q 

DPLUS+B15 
55Q,55Q ; 

DMNUS+B15 
600,710 ; 

BCNUM+B15 

1030, 103Q 
CRP01+B15 

1220,1220 
CRP03+B15 



;ALL OT 

; ABOR 

******** 

ITIONING 
******** 

;< + > - 

;SET S 

NEGATIVE 

;SET S 

VALID PA 

;ACCUMU 

;<c> 

;SET 

;<R> 



HER CODES 

T ESCAPE SEQUENCE 

*************** 

ESCAPE TABLE * 
*************** 

PLUS SIGN 

IGN FLAG TO +1 

REL. POSITIONING 
IGN FLAG TO -1 
RAMETER DIGITS 
LATE NUMERICAL VALUE 



COLUMN PARAMETER 



;SET ROW PARAMETER 



1310,1310 ;<¥> 

CRP02+B15 ;SET SCREEN ROW PARAMETER 

1430,1430 ;<LOWER CASE C> 

CRP01+B15 ;SET COLUMN PARAMETER 

1620,1620 ;<LOWER CASE R> 

CRP03+B15 ;SET ROW PARAMTER 

1710,1719 ;<LOWER CASE Y> 

CRP02+B15 ;SET SCREEN ROW PARAMETER 



DB 400,400 ;SPACE - IGNORE 

DW ECAP1+B15 

OB 0,177Q ^INVALID 

OW ECEN0+B15 

****************************** 

FUNCTION DISABLE ATTRIBUTES * 
****************************** 

EOU $-3 

DB 15Q,15Q ;RETURN CODE 

OW CARET+B15 

DB 330,336 ; ESC APE 

OW FDESC+B15 

OB 1320,1320 

DW FIS0F+B15 

DB 0,1770 

DW SKYDS+615 



» 
t 
FISTB 



;ALL OTHER COOES 

;AO0 CHARACTER TO DISPLAY 



3037 
D791 



********************************************** 

SNDCTB - ACCUMULATE ATTENTION/FUNCTION CODE * 
********************************************** 

OCTB EQU $-3 

OB 60Q,67Q ;OCTAL DIGITS 

OW 0CNUM+B15 ;ACCUMULATE VALUE 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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24F2 
24F4 

24F6 
24F8 

24 FA 
24FC 

24FE 
2500 



251F 
2522 
2524 



4141 
B696 

4646 
4392 

2020 
0385 
007F 
0080 



007 F 
369E 



DB 1010,10.19 ;<A> 

DW SDC&1+B15 ;SEND ATTENTION CODE 

DB 106Q,106Q ;<F> 

DW SDCD2+B15 ;SEND FUNCTION CODE 



DB 40Q,40Q ; SPACE 

DW ECAP1+B15 

DB 0,1770 ;OTHER CHARACTERS 

DM B15 ;TER«INATE AND 



RESET 



;********************************** 

; DFSTAB - DEFINE SOFT KEYS TABLE * 

********************************** 



24FF 




DSTAB 


EQU 


$-3 


2502 


2020 






DB 


403,4 OQ 


2504 


0385 






DW 


ECAP1+B15 


2506 


3039 






DB 


60Q,71Q 


2508 


D791 






DW 


DCNUH+B15 


250A 


4141 






DB 


101Q,101Q 


250C 


7F9D 






DW 


DF1GG+B15 


250E 


4B4C 






DB 


113Q,114Q 


2510 


1E25 






DW 


DT01Q 






i 


LOWER CASE RANGE 


2512 


6161 


r 




DB 


141Q,U1Q 


2514 


7F9D 






DW 


DF100+B15 


2516 


6B6C 






DB 


153Q,154Q 


2518 


1E25 






DW 


DT010 


251A 


007F 






DB 


0Q,177Q 


251C 


0985 






DW 


ECEND+B15 


251E 




BT010 


EQU 


$ 


251E 


871 D 






DW 


DS110 


2520 


8F1D 






DW 


DF120 



; SPACE 

; IGNORE 
;DIGITS <0>-<9> 
ACCUMULATE NUMERICAL VALUE 
;<A> - ATTRIBUTE PARAMETER 

;STORE DEFINED ATTRIBUTE 
;<K> - <L> 
;USE INDEX TABLE 



;<A> - ATTRIBUTE PARAMETER 
; STORE DEFINED ATTRIBUTE 

;<K> - <L> 
;USE INDEX TABLE 
;ALL OTHER CODES 

; ABORT ESCAPE SEQUENCE 



DEFINE KEY 



; DEFINE LENGTH 

•A******************************** 

; ACCUMULATE SOFT KEY DATA TABLE * 

• ********************************* 



NUMBER 

OF INPUT 



DATA 



DSTB2 



EQU 

DB 

DW 



END 



$-3 

0Q,177Q 

DS300+B15 



;ALL COOES 



NO PROGRAM ERRORS 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2U 
20 
20 
20 
20 
20 
20 
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SYMBOL TABLE 



* 01 

A 

ABLNK 

ALCC 

ANL 

APHNM 

ATOLF 

B 

81TYP 

B2BEC 

BASE 

8D050 

BD210 

BBEND 

BFBSY 

BKMDE 

BLKSM 

BNXKT 

BRKDC 

BT450 

BYOOC 

BYBEF 

8YCIF 

BYFL2 

BYMF1 

BVMOV 

BYZ02 

CAQ40 

CADV1 

CARET 

CBFL2 

CBRKY 

CD020 

CD120 

CD200 

CD 4 00 

CD520 

CEARL 

CER01 

CERLA 

CHINT 

CI 020 

CI104 

CI ADR 

CIJMP 

CI NT 2 

CISPT 

CK010 

CK100 

CKCTL 

CKLIO 

CKSFK 

CL310 

CL544 

CLLIM 

CMMON 

CNDTN 



0007 

0020 

0063 

0080 

00C7 

0004 

0000 

FF39 

0886 

FFOO 

G89D 

08CD 

FF3B 

0080 

0002 

000 F 

0002 

11B0 

1741 

FE5E 

0004 

0004 

FE66 

0008 

0001 

FE61 

1C9E 

1C99 

0F71 

234F 

000 A 

17CD 

1846 

186D 

188E 

18 AD 

18BE 

191E 

18D6 

03 C4 

0401 

500F 

FF33 

FFEO 

0414 

FF31 

0F9A 

OFAD 

0486 

0F86 

1789 

191A 

1935 

0020 

FFFF 

2814 



AB010 

A BLOC 

ALPHA 

ANR 

APSND 

ATOUT 

B15 

B2&E0 

B2LEN 

BASE2 

BD100 

BD220 

BBPTR 

8 FEND 

BKSPC 

BLKSZ 

B0010 

BRYGO 

BT500 

BY100 

BVCHK 

BYFC1 

BVFL3 

BYMF2 

BYRAM 

BYZQ3 

CA060 

CAFL6 

CAR IN 

CBLNK 

CCMFL 

CD05Q 

C013Q 

CD210 

CD500 

C DC DP 

CEARS 

CER02 

CFL6S 

CHSAV 

CI030 

CI110 

CIBPT 

CIL 

CINTR 

CISTA 

CK050 

CK150 

CKFMO 

CKLIM 

CKSOM 

CL4 00 

CL550 

CLNKO 

CMND 

COMMA 



1455 

0008 

00C5 

0040 

0026 

702A 

8000 

0875 

FF35 

FEOO 

O8B0 

08CE 

FF3C 

FF8B 

1C72 

0010 

0864 

2829 

1756 

500C 

283A 

0001 

FE65 

0020 

FE67 

FE5F 

1CAF 

FF67 

FF9C 

FF53 

1351 

17FE 

1854 

1871 

1897 

282C 

1004 

191F 

FFF8 

FF98 

0407 

0438 

FF2F 

0001 

283D 

FF29 

0F9D 

OFAF 

176F 

0F8C 

08D9 

191C 

193B 

0FD4 

FF55 

002C 



ABLEN 

ACKSL 

ALTIN 

AOUTB 

ASIGN 

ATTRM 

B1LEN 

B2DE1 

B2STT 

BASEH 

BD110 

BDBFL 

BEGIN 

BFMSG 

BKTRG 

BLLIM 

BOT 

BSEH2 

BT510 

BY960 

BYCH 

BYFC2 

BYFRE 

BYMF3 

BYSRE 

C 

CA070 

CAINO 

CBASE 

CBLTM 

CDOOO 

CD100 

CD140 

CD250 

CD510 

CDEXC 

CEDIT 

CERLO 

CHAIN 

CIQOO 

CI050 

CI200 

CICNT 

ONTO 

CIOKY 

CITRL 

CK060 

CK160 

CKFMS 

CKMLK 

CL120 

CL51Q 

CL580 

CLRED 

CNDIS 

COUNT 



OOOE 

005C 

0040 

1335 

0040 

0001 

FF38 

08 7B 

FF37 

OOFF 

08B3 

003D 

0000 

0E5F 

0001 

0051 

0020 

OOFE 

175C 

1F27 

FE64 

0002 

5006 

0040 

5009 

0001 

1CBC 

1765 

OOFF 

FF52 

1807 

1816 

185B 

1885 

189E 

0008 

0FC2 

18E0 

176A 

03B6 

041C 

0459 

FF2C 

03A4 

0008 

FF2B 

0FA9 

0FB6 

1773 

177E 

1901 

1921 

194C 

2808 

0001 

FF84 



ABLIN 

ADEL 

ALTIO 

APARN 

ASTAK 

AX 

B1STT 

B2DE2 

B2TYP 

BCKT5 

BD200 

BDBUF 

BFBGN 

BKFIL 

BKTRM 

BNOCT 

BOUTB 

BSPCE 

BYOOO 

BY970 

BYCI2 

BYFL1 

BYINS 

BYMF4 

BYZ01 

CA010 

CA100 

CAIN1 

CBDLY 

CBLXF 

CD010 

CD110 

CD150 

CD260 

CD515 

CDSPF 

CEKCC 

CERL1 

CHAR 

CI010 

C1 100 

CI270 

CICSM 

CINT1 

CIR 

C1VEC 

CK070 

CKCT1 

CKFMT 

CKRTN 

CL160 

CL540 

CLEAR 

CLTST 

CNDLF 

CP025 



144F 
007F 
0010 
0029 
FF5F 
0041 
FF3A 
087E 
FF36 
174E 
08 C2 
FF3B 
FF8D 
FF91 
7804 
085A 
1334 
CFFF 
5000 
1F9D 
FE63 
FE67 
0002 
0080 
FE62 
1075 
1CEA 
1766 
0020 
0FE5 
17A1 
181F 
1869 
1889 
18AB 
OFBC 
0040 
18E3 
FF88 

03 D 3 
042D 

04 7 E 
FF2A 
042D 
0002 
FFE1 
OFAC 
0498 
1778 
FF86 
190C 
1932 
08 F5 
FF75 
0AC1 
10F2 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F ILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



CR010 
CRAD2 
CRALL 
CRDKY 
CRFKY 
CRMF2 
CRPL1 
CRP03 
CRRET 
CRSTB 
CS100 
CS200 
CSTAT 
CTOFF 
CU010 
CUPU1 
CURPH 

cx 

DAOFF 

DC3 

DCRDX 

DF120 

OFLGS 

D6100 

06220 

BH020 

DIOFF 

DJMP3 

DLAYO 

DM010 

DMCTL 

DNQ05 

DP020 

DPBTM 

BPEND 

DPMSQ 

DPSTR 

BPTYP 

DS035 

DS044 

DS060 

DS092 

DS114 

DS170 

DS210 

DS240 

0S360 

DSEMO 

DSLN3 

DSPC0 

DSPLO 

DSPLC 

OSTBO 

OTATR 

DX 

E 

ECAPA 

EC END 

ECOUT 

EDDSP 

EHLIH 

EI1A 

ELADR 

EH110 

EOL 

EOUTB 

EP100 

EREOP 

ETB2D 

ETREN 



0F80 

1C78 

1070 

OOAO 

FFA4 

051 E 

1D1A 

10DA 

1E6A 

24A7 

103E 

1059 

FF66 

0080 

1CD0 

1D62 

19A9 

0043 

0060 

0013 

OOOA 

1D8F 

FF6E 

12D2 

131C 

207A 

0010 

0004 

1221 

1202 

11B7 

11E1 

04C1 

0040 

FFA8 

1958 

FE4F 

FFAE 

1EF1 

1FB5 

1FDF 

2014 

2047 

096D 

098B 

09AC 

1E64 

124D 

0F23 

1E90 

1FE5 

1E8B 

23AF 

0040 

0044 

0003 

04F3 

0509 

1702 

0080 

OOBF 

241 A 

FF94 

09F6 

OOCC 

132F 

20E9 

0E88 

0001 

1623 



* 



CR05 

CRADR 

CRCOL 

CRDL1 

CRINS 

CRMTE 

CRPL2 

CRP04 

CRROW 

CRTRG 

CS110 

CS210 

CSTOR 

CTRLO 

CU100 

CUPU2 

CURPL 

D 

DC010 

DCERR 

DCTOF 

DF200 

DFSKY 

DG110 

DG225 

DH100 

DJMPO 

DJKP4 

DLHOL 

DM500 

DMERR 

DN010 

DP220 

DPCHO 

DPFNC 

DPMS1 

DPTAB 

DS010 

DS040 

DS045 

DS070 

DS093 

DS120 

DS175 

DS215 

DS250 

DS400 

DSFKY 

DSLN4 

DSPC1 

DSPL1 

DSPLY 

DSTB2 

DTCOM 

DXB2D 

EC010 

ECAPB 

ECFL6 

ECTAB 

EDIT 

EHNCF 

EI2 

ELMOV 

EM130 

EOLMV 

EP010 

EP110 

ERFLG 

ETLCL 

ETyRP 



5012 

FFC3 

FFC1 

1816 

5003 

OFDF 

1D51 

11 OB 

FFCO 

0000 

1049 

105A 

FFOO 

FF62 

08DC 

1D6B 

1D18 

0002 

11C1 

11C6 

1412 

1D94 

0008 

12EB 

131F 

208D 

0080 

0008 

0010 

197D 

0001 

11F0 

1297 

205A 

0001 

1959 

04 C5 
1965 
1EF9 
1FB8 
1FF4 
2022 
0927 
096E 
1290 
1E0C 
09 82 
1D72 
0F24 
1E92 
0903 
0004 
251F 
0020 
121B 
04E7 
04 FB 
FFD1 
23E9 
0010 
OOFF 
2420 
09 C9 
0A07 
FF90 
20BB 
20FF 
FFF7 
133C 
0008 



CR1CU 

CRADV 

CRDEL 

CRDL2 

€RLF 

CRPH1 

CRP01 

CRPGS 

CRSEN 

CRTRM 

CS120 

CSNGO 

CTFAD 

CTUIN 

CU110 

CUR AD 

CO RPR 

DOCTI 

DC2 

DCHAR 

DELAY 

DF210 

D6010 

DG200 

DG230 

DI100 

D4MP1 

DJMS2 

DLTRM 

DM510 

DM I NT 

DNTAB 

DPASC 

DPCH1 

DPLIM 

DPMSG 

DPTCH 

DS020 

DS042 

DS050 

DS080 

DS10Q 

DS140 

DS180 

DS220 

DS300 

DSCNT 

DSLN1 

DSLNK 

DSPC2 

DSPL2 

DSPST 

DSTB3 

DTEST 

DY010 

ECAPO 

ECAPE 

ECINP 

EDBLK 

EDROU 

EHOUT 

EI3 

ELMVO 

ENDPR 

EONTF 

EP020 

EPAND 

ESC 

ETRCD 

EVD 



1153 
1C7B 
1796 
18B5 
1D0D 
19AE 
10C4 
10AF 
114E 
0002 
104E 
1159 
FFCE 
0080 
08 F2 
1CCA 
1D13 
2835 
0012 
FF89 
1228 
1DA1 
12BB 
12FF 
1326 
2029 
0001 
7806 
0000 
1983 
11A9 
24A3 
1FDF 
208E 
FAFF 
195C 
049D 
1EB7 
1F0E 
1FC7 
1FFE 
127D 
0939 
0975 
09A2 
1E36 
0006 
0F1D 
0F14 
1E94 
090 F 
FFFE 
23A3 
120E 
1231 
04F5 
04D5 
0008 
0007 
FF20 
FF76 
247C 
09C1 
00C1 
FFCD 
20DF 
2095 
001 B 
0098 
0002 



CR209 

CRAL1 

CRDFL 

CRET1 

CRLOC 

CRPMD 

CRP02 

CRPRT 

CRSET 

CRXON 

CS130 

CSPEN 

CTMON 

CTXFR 

CUPD1 

CURPD 

CURPU 

D2SND 

DC2G0 

DCNUM 

DF100 

DF220 

DG020 

D6210 

DH010 

OHIO 

DJWP2 

DJMSK 

DLWRP 

DMCT1 

DMNUS 

DP010 

DPBGN 

DPCHR 

DPLUS 

DPS60 

DPTST 

DS030 

DS043 

DS054 

DS090 

DS110 

DS160 

DS200 

DS230 

DS350 

DSEN1 

DSLN2 

DSMDM 

DSPEN 

DSPLA 

DSTAB 

DT010 

DVFtG 

DY020 

ECAP1 

ECEN1 

ECLWD 

EDCOL 

EDTST 

EI1 

EL100 

EM100 

EOF 

EOP 

EP030 

ER100 

ESCSO 

ETREM 

EW 



11RA 
1074 
15E0 
1E7A 
0002 
107C 
10CF 
1E77 
FF72 
OFFD 
1052 
FF77 
282F 
0002 
1D33 
1D25 
1D53 
0080 
119D 
11D7 
1D7F 
1DA4 
12C3 
130E 
2077 
203E 
0002 
7805 
178E 
11C2 
1200 
04AB 
FFAA 
2057 
11 FB 
12B0 
2051 
1EC5 
1F1D 
1FD5 
200E 
1D87 
0952 
1283 
1E00 
1E5D 
12A6 
0F20 
11B5 
1E81 
1E9B 
24FF 
251E 
FE7F 
1235 
0503 
0515 
00 E 4 
FF21 
0006 
2410 
134A 
09 EA 
0001 
OOCE 
20 E 4 
1365 
008E 
1357 
0080 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2G 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



FC100 

FC240 

FC247 

FCLWR 

FCTAB 

FBCU1 

FDRAK 

FBSRB 

FDTB2 

FF 

FISOF 

FLCHR 

FLNUH 

FNCT2 

F01QG 

FROGS 

FR105 

FR150 

FR240 

FR340 

FRMOF 

FS030 

FSALT 

FT200 

FTBIN 

FT RAH 

GAP 

6BLKF 

6C050 

GFCTK 

GL220 

GO 

GS020 

GSO50 

GS150 

6S220 

GS310 

GTADR 

GTOCM 

HB120 

HB200 

HBTBL 

HBER1 

HLCNT 

HP060 

HX 

IBUF1 

ICCNT 

ICHON 

ICNTL 

ICSGN 

ICTGO 

IOATA 

IERRB 

IG060 

It* 010 

II110 

II310 

IITD1 

IK8C0 

INTRM 

IOBUF 

IPBEV 

IRDGO 

IRPON 

ISTA2 

I TERR 

KB EN 

KCTSH 

KJHP2 



14A8 

14F1 

1517 

0098 

1431 

1B46 

0524 

1B05 

146F 

OOOC 

13FD 

FF8F 

FF5E 

1520 

13F2 

1B58 

1B70 

1BA8 

1AC4 

1AE6 

1477 

1BEF 

7029 

13A7 

OOOA 

9100 

0020 

05BF 

05AA 

1525 

060E 

012F 

2155 

21AD 

21F5 

2236 

227E 

FF73 

0570 

1C23 

1C50 

FF78 

0010 

FF51 

1A14 

0048 

FCOO 

FFD5 

1C57 

281A 

FFBB 

1563 

FFOE 

0020 

2310 

1C59 

01 D3 

0235 

2342 

8083 

0001 

FCOO 

FF4E 

2823 

1C68 

FF4A 

15B6 

1503 

FF12 

FFFA 



FC11C 

FC242 

FC290 

FC0BE 

FDCHO 

FBESC 

FBSEP 

FBSRX 

FECNT 

FF010 

FISON 

FLBSR 

FLRED 

FNOCH 

FGR6N 

FR010 

FR110 

FR160 

FR2 50 

FR360 

FRMGN 

FS035 

FSOUT 

FT210 

FTCTL 

FTSNO 

GB0Q5 

GC010 

6C100 

GL1Q0 

GM0D1 

G0010 

GS030 

GS060 

6 St 60 
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